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FOREWORD 

Consumption  Monitoring  is  an  important  first  step  in  the  energy 
conservation  program  of  any  large  organization.   This  system  will  help 
to  identify  where  the  greatest  potential  for  savings  lies.   It  can 
then  be  used  to  measure  the  success  of  conservation  measures. 

With  proper  management  support  it  can  be  used  to  monitor  the 
performance  of  building  engineers.  Often  there  is  great  potential 
for  energy  savings  through  low  or  no-cost  measures  but  there  is  no 
incentive  to  do  so. 

The  software  and  the  accompanying  document  were  developed  by 
the  Massachusetts  Energy  Office  and  funded  by  the  New  England  Regional 
Commission.   Since  it  is  the  result  of  tax  supported  funds,  it  is  not 
proprietary. 

This  manual  uses  a  cookbook  approach  to  show  a  person  with  no 
computer  experience  how  to  use  the  software  we  have  developed. 


In  addition  to  this  manual,  it  is  recommended  that  any  prospective 
designer  of  an  energy  consumption  monitoring  system  refer  to  the  following 
document:   "AN  ENERGY  CONSUMPTION  MONITORING  SYSTEM  FOR  LARGE-SCALE 
ORGANIZATIONS:   Designed  For  and  Implemented  In  The  State-owned 
Facilities  of  the  Commonwealth  of  Massachusetts."  This  document  is 
available  from  the  Massachusetts  Energy  Office  or  from  Gary  A.  Bare, 
the  author. 
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1.1   CONSUMPTION  MONITORING  TERMINOLOGY 


The  following  terms  are  used  throughout  this  manual  and  the  reader 
should  be  familiar  with  them. 

Fiscal  Year:      A  fiscal  year  goes  from  July  1  to  June  30.   Therefore, 

July  1978  is  part  of  fiscal  year  1979.  It  is  very 
important  that  the  user  keep  from  confusing  fiscal 
year  and  calendar  year. 

Degree  Day:       A  measure  of  the  amount  of  heating  that  needs  to  be  done. 

This  can  help  determine  how  much  change  in  energy  use 
is  caused  by  weather  conditions.   Unfortunately,  it  is 
sometimes  difficult  to  determine  what  part  of  energy 
consumption  is  for  heating  and  what  part  is  for  other 
uses.   Some  people  refer  to  another  measure  called 
"cooling  degree  days".   We  do  not  monitor  these  since 
air  conditioning  is  usually  electric  and  we  cannot 
determine  what  part  of  electric  use  is  for  air  conditioning, 

BTU:  In  the  output  reports  the  different  fueltypes  are 

aggregated  by  total  BTUs  (British  Thermal  Units) .   This 
is  the  amount  of  energy  contained  in  the  fuel.   For 
electricity  and  steam  this  can  be  measured  by  the  amount 
of  energy  required  to  create  a  given  unit  or  by  the 
amount  that  can  be  obtained  from  a  given  unit.   For 
electricity  there  is  a  threefold  difference.   We  use  the 
first  method  since  it  shows  the  energy  use  by  society. 
Our  conversion  factors  are: 


Electricity 

10,500 

BTUs/KWH 

Natural  Gas 

105,000 

BTUs/CCF 

Propane 

91,500 

BTUs/Gallon 

Coal 

26,000,000 

BTUs/Ton 

Oil  No.  2 

139,600 

BTUs/Gallon 

Oil  No.  4 

145,100 

BTUs/Gallon 

Oil  No.  5 

148,800 

BTUs/Gallon 

Oil  No.  6 

152,400 

BTUs/Gallon 

Steam 

1,265,000 

BTUs /thousand  pounds 
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1 .2   Computer  Basics 


Once  you  have  logged  into  the  computer,  there  are  basically  three 
(3)  different  levels  of  the  computer  that  you  will  have  to  deal  with. 
Within  each  level  there  are  certain  functional  areas  of  the  Consumption 
Monitoring  software  that  will  have  to  be  used  at  that  level.   In  an  effort 
to  make  this  clear,  Figure  1  shows  the  three  levels  and  the  Consumption 
Monitoring  functions  that  can  be  executed  in  each  level. 

FIGURE  1 


COMPUTER  COMMAND  LEVEL 
Log  In 


CP 

■» 

f 

i                         CMS 

> 

' 

1          APL 
Workspace 

FUNCTIONAL  AREAS  OF  CM  SOFTWARE 


1 .  Define  Virtual  Machine 

2.  Implement  CMS  (Conversational 
Monitor  System) 


1.  Read  Cards  Into  CMS  Files 

2.  Edit  CMS  Files 


1 .  Initialize  the  System 

2.  Load  Data  into  System 

3.  Perform  OUtput  Functions 

4.  Query  Data  Base 


This  manual  will  address  each  of  the  above  functional  areas.   In 
addition,  a  few  pointers  for  avoiding  problems  will  be  included.   The 
software  anticipates  some  of  the  problems  that  may  arise,  however,  it  is 
possible  that  you  may  occasionally  have  difficulties.   If  so  refer  to 
Section  7  of  this  manual.   If  this  is  not  sufficient,  refer  to  the  Systems' 
Maintenance  Manual  for  a  more  detailed  explanation  of  the  specific  area 
that  is  causing  difficulties.   With  a  little  care,  all  should  go  well  — 
GOOD  LUCK. 
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2.  Logging  On/Off  the  Computer 

Obviously,  before  you  can  use  the  Consumption  Monitoring  software 
you  must  first  "get  on"  the  computer.   To  do  that  use  the  following 
procedure.   A  sample  is  shown  in  Figure  2-A. 

1.  Make  sure  the  terminal  (and  coupler  if  independent)  are  plugged 
in  and  turned  on. 

2.  Make  sure  that  the  correct  typeset  or  typeball  is  selected. 

3.  Dial  the  telephone  number  that  connects  you  with  the  computer. 

4.  When  you  hear  a  high  pitched  whistle,  place  the  reciever  in  the 
acoustic  coupler. 

5.  Press  the  RETURN  key  several  times. 

6.  When  asked  to  "enter  1",  do  so  several  times,  pressing  RETURN 
each  time. 

7.  The  computer  will  eventually  respond  with: 

VM370  ONLINE 

8.  You  can  now  log  in.   Type: 

L  account 

where  account   is  your  account  identifier. 

Your  account  identifier  is: 

9.  The  computer  will  then  ask  you  to  enter  your  password.   Do  so. 
Your  password  is 

10.  The  computer  will  then  type  some  information  and  you  will  then 
be  in  the  CP  environment.   This  is  where  you  set  up  the  "virtual 
machine"  that  you  will  be  using.   The  only  thing  you  will  need 
to  define  is  the  storage  space  needed.   Type: 

DEF  STOR  1M 

11.  Now  you  are  ready  to  enter  the  CMS  environment.   Anytime  you 

may  accidentally  find  yourself  in  CP  you  can  execute  this  command 
to  enter  CMS.   Type: 

IPL  CMS 
If  you  wish  to  perform  any  of  the  operations  in  the  CMS  environment 
you  should  do  so  now.   If  you  wish  to  continue  and  go  into  APL. 
Type: 

VSAPL 
The  last  thing  the  computer  will  respond  with  is: 

CLEAR  WS 
After  this  you  must  put  the  APL  typeset  on  the  terminal  or  hit 
a  switch  so  that  the  new  character  set  is  used. 
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enter    1 
us@un   y 
1 
1 
1 
1 

DMKL  OG020E  USERID   MI5SI  NG    OR    INVALID 
1    mass  2 

E rr   W    PASSWORD: 
BBBBBB8B 

L  OGMSG    -    10:06:03     EST    TUESDAY    11/21/78 

*  f  S*RJ  ET  IMESHARI  NG   WILL     B  E  U  NATT  El*)  H)    FROM    0001    NOV  23  TO    0600    NO  V  2U 
LOGON  AT    10:22:26     EST    TUESDAY    11/21/78 
C  ALLDAT  A/370    R3.0    PLC     13 
def    stor    lm 

DMSAC:  7231    Y    (19F)    R/O 
DMSACC723I    G    (531)    R/O 

R; 

COhNCT*    00:00:38    VIRTCPU=    000:  00.  Ok  T  OTC  PU=    000:00.30 
CARDS=    000000         PU  B  H=    000000        L  I  NES=    000000         DISK/TAPE=    000000U0 
SESSIONC  ON  NET     *    00.00.39  EST  I  MAT  E>  :  ON  NET    :  HARG  E  =    $0  00  0.  11 

SE5SI0  MSRU    ■    0000.00  EST  I  MAT  ED    ISRU  C  HARG  E  =   $000  0.  16 

STORAG  E  =    0102UK 

DMKDSP450W  C P    EITEREQ;     DISABLED   WAIT     PSW    '00020000    00000000' 
CP 

I  pi    cms 

CA.LDAT  A/370    R3.0    PLC     13 
vsapl 

DMSACC723I    Y    (19F)    R/O 
DMSACC723I    G    (531)    R/O 

R; 

v    s      a   p    1 
clear  ws 


FIGURE   2 -A 


-6- 


Logging  Off 


1.  To  exit  from  the  VSAPL  workspace  type: 

)OFF  HOLD 
This  puts  you  back  in  the  CMS  environment.   Change  the  typeset 
or  typeball  back.   If  you  were  not  in  APL  skip  this  entire  step, 

2.  Once  you  are  in  the  CMS  environment  type: 

log 
to  log  off  the  system. 

3.  When  the  terminal's  response  is  finished  hang  up  the  phone  and 
turn  off  the  terminal  and  computer. 


The  above  two  procedures  should  get  you  on  and  off  the  computer 
system  with  no  trouble.   If  you  do  have  serious  problems  you  can  always 
hang  up  the  phone  and  try  again.   This  is  not  recommended  however. 
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3.   DATA  PREPARATION 


This  section  assumes  you  have  the  required  data  available  in 
machine  readable  form  or  ready  to  be  keypunched.   The  software  is 
set  up  to  handle  consumption  data  on  a  monthly  basis  (i.e.,  one 
consumption  record  is  for  one  entity  for  one  fuel  type  for  one  month) 

The  next  three  sections  discuss  the  required  file  formats,  ways 
of  entering  the  data  and  the  procedures  for  editing  (or  correcting) 
existing  files. 

3. 1   File  Formats 


There  are  only  two  basic  file  formats  that  are  required  for 
putting  the  necessary  information  in  CMS  files.   These  are  the 
Consumption  File  and  the  Master  File. 

Consumption  Files  -  There  should  be  one  80  character  record 
for  one  facility  for  each  month  for  each  fueltype  used.   For  example, 
one  facility  that  uses  4  different  fuels  would  have  48  records  per 
year.   If  the  facility  uses  a  given  fuel  type  at  any  time  during  the 
year,  records  should  be  entered  for  all  twelve  months  (enter  zero's) 
otherwise  it  will  show  up  as  missing  data. 

The  format  and  some  sample  records  are  shown  below: 

Columns 

1-10  Facility  (or  building)  identification  number. 

This  can  be  up  to  10  numeric  characters  left 
justified  in  the  field. 

21  -  24  Degree  days  right  justified  (Optional) 

27  Fueltype.   Must  be  one  of  these  characters: 

ENPC2456S.* 

49  -  52  Year  and  month  the  record  is  for  in  the  form: 

YYMM  (i.e.,  7807  for  July  1978) 

61  -  70  Quantities  for  that  fueltype  in  the  appropriate 

units  right  justified.   Electricity  -  KWH,  Natural 
Gas  -  CCF,  Propane  oil  #2,  4,  5,  6  in  gallons, 
Goal  -  tons,  and  steam  -  in  1000  lbs. 

71  -  80  Total  cost  for  the  given  quantity  in  dollars  and  cents 

with  no  decimal,  right  justified.   If  you  wish, 
dollars  only  can  be  entered  in  columns  71-78  right 
justified. 

*  E  =  Electricity,  N  -  Natural  Gas,  P  =  Propane,  C  •  Coal,  S  =  Steam, 
and  the  numbers  denote  oil  types. 
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Consumption  File 

237      E  780701780731  455600  2803451 

237      s  780701780731  134  130065 

H       e  780701780731  1070400  6186726 

11      s  780701780731  5138  2814953 

10103                                       237       E  780701780731  919000  5176284 

237       N  780701780731  0  000 

237      S  780701780731  0  000 

11       e  780701780731  766700  4274695 

11      s  780701780751  7529  3675419 

E  780701780731  186200  1083835 

S  780701780731  1555  809159 


10101 
10101 
10102 
10102 


10103 
10103 
10104 
10104 
10105 
10105 


Master  File  -  There  should  only  be  one  CMS  master   file.      This 
file  contains  a  unique   identification  number  and  a  name   for  each 
entity   that   is  part  of   the   system.      In  addition  a  value   is  needed 
for  square  footage.      The  value   for   square  footage  should  be   the 
value   for   the  earliest   date  included   in   the  system.      You  will  be 
given   the  opportunity  to  make  changes   in  the  latter   section.      If 
you  do  not  know  the   square   footage,    enter  a  one    (1). 

The   format   and   some  sample  records   are   shown  below. 

Columns 

1-10  Identification  Number.      This   can  be  up   to   10  numeric 

characters   left  justified   in   the   field 

21   -   60  Name  of   the  Entity    (facility  or  building) 

61   -   70  Gross   Square   footage.      The  value   should  be  right 

justified. 

MASTER  FILE 

10101  ST  AT  E   HOUSE  500000 

10102  NC    CORMACK    BUILDING  750000 

10103  SALfONSfALL    BUIL  Dl  K3  750000 

10104  HURL   EY    BUILDING  325000 

10105  L  I  hD  B4ANNC  EfT   ER  257000 

40101  B  H.:HERT  OWN  STAT   E  SS  HOCL  509000 

40102  N0RT  HAMPTON  Sr  AT  E  HOSPIT  A.  517182 

40103  0.  AVI  N  R  BGIOhAL    C  Eff   ER  108325 

40104  GARDNER    ST  AT  E  HOSPIT/H.  1 

40105  WORS   ESTER    ST  Ar  EHOSPirA.  794559 

40106  MO  NSON  STAT  E  HOSPITAL  973236 
'♦0107  SOLOMON  MEITAL     HEALTH  C  EIT    K    (L0UB.L)  67456 

3.2     Setting  up   the  CMS  Files 

There  are   three  ways  which  you  may  get   the  data   into    the  CMS   files: 
1.    from  cards,    2.    from  magnetic   tape,    or  by  3.    entering   it   into  a  CMS   file 
from  a   terminal.      The  first   and    third  will   likely   to  be   the  most   common  ways 
and  will  be  addressed  herein. 
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3.2.1   Keypunching  the  Data  onto  Cards  and  Loading  It  Into  CMS  Files 

In  most  cases  the  consumption  data  is  collected  on  some  type  of 
form.   This  data  can  most  easily  be  converted  to  a  machine  readable 
format  by  keypunching  the  data  onto  punch  cards.   Since  both  CMS  files 
are  set  up  with  80  character  records,  it  turns  out  that  one  card  is 
one  record  in  the  CMS  file.   The  data  should  be  punched  on  the  cards 
with  the  exact  same  format  as  the  CMS  files  described  in  section  3.1. 
Using  cards  also  gives  you  a  hard  copy  backup  of  all  your  data. 

Once  you  have  the  cards  in  hand  you  need  to  go  through  the 
following  steps  to  get  the  information  into  the  CMS  file. 

1.  Put  a  card  on  the  front  of  the  deck  with  the  following  information 

ID  account 
Where  the  word  account   is  you  should  enter  the  name  of  your  account, 
ID  must  start  in  column  1  with  one  space  after  the  D 

2.  Send  the  cards  to  customer  service  indicating  that  you  want  them 
read  into  your  virtual  reader  and  then  you  want  the  cards 
returned  to  you. 

3.  After  the  cards  have  been  read  in  (you  will  get  a  message  when  you 
are  logging  in  indicating  a  file  in  the  RDR)  you  should  go  through 
the  procedures  described  in  Section  2.0  in  order  to  get  into 

the  CMS  environment. 

4.  Execute  the  following  command  to  read  the  file  from  the  virtual 
reader  to  a  CMS  file. 

READ  in   it 
where 

in   =  any  filename  up  to  7  characters  in  length 

it   =  any  filetype  up  to  7  characters  in  length 
Make  sure  you  do  not  duplicate  any  filename  or  filetype  combination 
The  following  methodology  is  offered  for  appropriate  filenames 
and  filetypes. 

Name  the  master  file  MASTER  FILE.   For  the  Consumption  files 
pick  a  filename  such  as  JULY  OR  FY76  or  QRT1  to  indicate  what 
period  of  time  the  data  in  in  that  file  covers.   For  the  filetype 
use  the  date  that  the  file  was  last  updated  such  as  CF0731  for 
a  consumption  file  updated  or  entered  on  July  31.   Some  samples: 

READ  FY76  CF0731 

READ  QTR1  CF1021 

5.  The  data  is  now  stored  in  a  CMS  file  under  the  filename  and 
filetype  you  chose.  If  you  want  a  list  of  the  names  of  all 
your  consumption  files  type  the  CMS  command: 

L  *  CF*  (L 
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3.2.2  Using  The  Terminal  To  Enter  Data  Into  CMS  File 

This  is  recommended  only  when  you  have  a  small  number  of  records  to 
enter  since  it  is  time  consuming  and  somewhat  costly.   Use  the  following 
steps  to  enter  the  data  into  a  CMS  file. 

1.  Log  in  and  proceed  to  the  CMS  environment  using  the  steps 
in  section  2 

2.  Pick  an  appropriate  filename  and  filetype  using  the  suggestions 
in  section  3.2.1  and  then  type: 

EDIT  in  it 
where  in   and  it   are  the  filename  and  filetype 

3.  You  are  now  in  the  CMS  Editor.   Type: 

input 

4.  You  can  input  the  data  line  by  line  using  the  formats  explained 
in  section  3.1.   Be  very  careful  to  put  the  data  in  the  correct 
columns.   Do  not  worry  about  any  errors  you  make,  you  can  fix 
them  later. 

5.  After  you  have  entered  the  last  record,  hit  the  RETURN  key  twice. 
The  computer  should  respond  by  typing  EDIT:. 

6.  Type  FILE  to  store  this  new  file  as  a  CMS  file.   This  puts  you 
back  into  the  CMS  environment. 

7.  Use  the  CMS  Editor  described  in  Section  6,1  to  type  out  the  contents 
of  the  file  and  then  correct  the  errors 

8.  Records  that  have  been  entered  directly  should  be  keypunched  and 
processed  as  in  Section  3.2.1  These  can  then  serve  as  a  backup. 
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4.0  THE  DATA  BASE  SYSTEM 


This  chapter  will  allow  you  to  define  and  initialize  the  size  of 
the  consumption  monitoring  data  base.   To  do  this  vou  must  have  a  CMS 
Master  File  as  discussed  in  3.1.   You  will  also  be  shown  how  to  load  the 
consumption  files  into  the  data  base  and  make  changes  to  some  of  the 
variables.   The  maintenance  manual  should  be  consulted  for  making 
changes  to  other  parameters. 


4.1   Setting  Up  The  System 


All  of  the  functions  needed  for  Consumption  Monitoring  are  stored 
in  an  ApL  workspace  called  CM^RCMS .   The  data  base  will  be  set  up  in  an 
APL  workspace  under  a  name  you  choose.   This  workspace  contains  your 
main  consumption  monitoring  system.   You  should  only  go  through  the 
setup  phase  when  you  want  to  redefine  the  entire  data  base  system. 
The  following  steps  allow  you  to  do  so.   There  is  a  sample  session  in 
Figure  4-A. 

1.  Follow  the  procedure  in  section  2  and  proceed  to  the  APL  environment 

2.  Pick  a  workspace  I.D.  (up  to  8  characters)  that  you  want  the 
data  base  stored  under.   Then  execute  the  following  command: 

)WSID  Id 
where  i.d.   is  the  I.D.  you  picked.   This  will  not  be  referred  to 
as  the  data  base  workspace  (D.B.  workspace). 

3.  Copy  in  the  functions  used  by  the  Consumption  Monitoring  Programs. 
Type: 

)C0PY  CMPRGMS 

4.  Now  you  need  to  build  the  matrices  that  will  store  the  data.   Type: 

BUILDARRAYS 
You  will  then  be  asked  two  questions.   Enter  the  years  that  you 
will  be  loading  the  data  for.   In  addition,  you  may  want  to 
include  the  following  year  so  that  you  won't  have  to  redefine 
the  data  base  to  make  room  for  it  later.   You  will  then  be  asked 
the  name  of  the  master  file.   After  entering  this  you  may  get 
a  syntax  error.   This  is  caused  by  bad  data  in  your  CMS  Master 
file.   You  should  exit  from  this  function  and  correct  the  file 
using  the  CMS  Editor.   Then  redo  this  procedure  starting  with 
step  1 . 

5.  Now  you  can  erase  the  unneeded  initialization  functions  by  typing: 

) ERASE  BUILDARRAYS  CONSTANTS  LITERALS  FACIL  ENTERFACID 

6.  Now  save  the  workspace  by  typing: 

)SAVE 
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)WSC  D   SAMPLE 
WAS   CLEAR     WS 

)COPY   CMIRGMS 
SAVED    15:00:54    11/20/78 

BUC  LDARRAYS 
TIES    PROGRAM  SHOULD   BE    USED    ONLY    WHEN   SETTING    UP   A    NEW   SYSTEM. 
IF   THAT  I S    WHAT   YOU   WANT   TO    DO    TYPE    YES   OTHER  171 SE   TYPE   NO. 
YES 

ENTER     THE   FC  SCAL    YEARS   YOU   WANT  I  N    CHR  ONOLOGC  CAL    CR  DEI 
FCR     EXAMPLE    7  3    78    79     80 

D: 

73    76    78    79 
ENTm     THE  I  D   OF   THE  MASTER    FC  LE 
ENTER    THE    *FI  LENAME   FC  LETYPE*    AT   THC  S   TC  ME  . 
MASTER     FC  LE 
LOAD   COMPLETE 
PR  OGi  AM   COMPLETE 

)ER  ASE  BUC  LDARR  AYS   CONSTANTS   H  TER  ALS   FACC  L   ENTCR  FACC  D 

)SAVE 
16:26:57    11/20/78    SAMPLE 


FIGURE  4 -A 
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7.  You  can  now  use  the  procedure  in  section  1  to  log  off  or 
you  can  proceed  to  step  3  of  the  procedure  for  loading  the 
data  into  the  data  base.   This  procedure  is  described  in  the 
next  section. 


4.2  Loading  Data  Into  the  System 


The  functions  below  permanently  store  data  in  the  system  you 
set  up  in  section  4.1.   These  functions  tend  to  be  costly  for  large 
files  so  they  should  not  be  run  more  than  once  for  the  same  data. 


4.2.1.1   Adding  Consumption  Data  to  the  Data  Base 


Once  the  consumption  data  has  been  loaded  into  CMS  it  must  be 
converted  to  a  more  usable  form.   This  is  done  by  putting  it  into  APL 
matrices.   Using  this  system  new  data  can  easily  be  added  and  the  data 
is  in  a  format  where  it  can  be  easily  accessed.   In  this  phase  the  data 
is  checked  for  certain  obvious  errors  and  these  records  are  printed  out. 

In  order  to  convert  the  data  into  APL  and  validate  it,  follow 
the  steps  below.   Figure  4-B  is  a  sample  run  of  this  program. 

1.  Follow  the  procedure  in  section  1  and  proceed  into  the 
APL  environment 

2.  Then  load  in  the  workspace  containing  your  data  matrices  and 
the  input  functions.   To  do  this  type: 

)LOAD  Id 
where  td   is  the  I.D.  that  was  picked  in  section  4.1. 

3.  Make  sure  you  have  corrected  the  errors  from  the  previous  run. 
If  you  haven't  but  are  planning  to  you  can  rename  the 

ERROR  DATA  file.   To  do  this  type: 

CMS 'RENAME  ERROR  DATA  A  ERROR  it   A' 
where  the  fit   should  be  a  unique  identifier  for  the  renamed  file, 
The  new  filename  will  then  be  ERROR  it 

4.  Then  type: 

ADDATA 

5.  The  computer  will  then  remind  you  to  do  something  about 
your  last  error  file.   Since  you  have  already  done  this 
type  "OK".   (In  some  computer  software  packages  typing  the 
first  letter  of  an  answer  is  sufficient.   It  is  not  adequate 
in  this  system  however.   This  will  give  those  of  you  who 
are  beginners  an  advantage  over  experienced  computer  users.) 

6.  You  will  then  be  asked  the  filename  and  filetype.  Enter  the 
name  you  determined  in  section  3.2.1.  If  you  are  loading  an 
error  file  enter  that  name. 
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7.  You  will  be  asked  to  move  the  carriage  to  the  top  of  the  next 
page  and  then  press  return.   If  you  are  loading  a  large  file 
you  may  have  to  wait  a  couple  of  minutes  so  don't  worry. 

The  terminal  will  then  print  out  a  list  of  errors.   Then  the 
workspace  will  automatically  be  saved.   There  will  be  a  short 
pause  for  this.   Then  the  terminal  will  print  out  the  time, 
date,  and  the  name  of  the  workspace. 


4.2.1.2   Correcting  Errors  and  Reloading  the  Data 

The  ADDATA  function  described  in  the  last  section  creates  a  list 
of  errors  which  must  be  corrected  and  then  loaded  into  the  data  base. 

Records  can  be  rejected  for  any  of  five  reasons.   These  are: 

a.  Non-existent  facility  I.D. 

b.  Non-existent  fuel  type. 

c.  Incorrect  month. 

d.  Fiscal  year  which  is  not  monitored.   The  software  converts  the 
calendar  year  on  the  input  data  into  the  fiscal  year  (July  -  July) . 
For  instance,  if  you  are  monitoring  1976  but  not  1977,  7607  will 
be  an  error  since  it  is  part  of  fiscal  year  1977. 

e.  Incorrect  cost/quantity  ratio.   The  software  divides  the  cost 
by  the  quantity  and  checks  to  see  if  this  ratio  fits  within 

a  certain  range.   There  are  several  reasons  why  this  ratio 

would  be  incorrect.   For  natural  gas  and  steam,  there  is  often 

a  problem  with  units.   Natural  gas  should  be  reported  in  CCF 

(hundred  C4>bic  feet)  but  it  is  sometimes  reported  in  cubic 

feet  or  thousand  cubic  feet.   Steam  should  be  reported  in  thousand 

pounds.   Errors  can  also  be  caused  by  keypunching  which  is  discussed 

below.   A  third  possible  problem  is  caused  by  small  quantities  for 

which  the  ratios  are  sometimes  out  of  line.   A  fourth  possibility 

is  that  the  minimum  or  maximum  accepted  values  are  wrong.   If  you  want 

want  to  correct  these  values,  see  the  systems  manual. 

If  your  problem  is  caused  by  either  small  quantities  or  incorrect 
ratios,  you  can  bypass  this  check.   This  procedure  will  be  described 
shortly.   Make  sure,  however,  you  have  corrected  your  other  errors. 

1.  When  you  have  found  out  what  your  errors  are,  determine  their 
source.   Perhaps  they  are  keypunch  errors  and  these  can  be 
corrected  by  looking  back  at  the  original  form. 

2.  When  you  are  ready,  correct  the  ERROR  DATA  file  as  described  in 
section  6.1  on  the  CMS  Editor. 


-16- 


ro  fa  fafa  -a  sis  fa^^^^s^^fa^^S 

••  fa  -°  fa  &g  tg  -^  fa  fa       -°^3  fa  fa       fa  ^ 

NJ,"°  <Ti  5=!  It..  lb.  K;  O  fa  fa  >-3  »-<  fa  fa 

fO  -0  fa  ^  ^s  ^g  CUo  Q  ^  "°  fa  "° 

••  fa  ^  fa  fa  fa  fa  fa  fa  fa  -  fa  fa  fa  fa 

h*  fci         fa  fa  fc»  fa         fa  ►$  fa  fa         Co  fa  3* 

#Ot3^  fa  "^  fa  sq  :t*  a:  >*       ^       It*  fa 

Ifc.  ^  fa  fa  2  :fc>  >-3  fa  -  "°  fa  fa  fa  fa 

■^  ^  ^  ..i  S  ^  fa  *>  t«i  ^  o  ti  ^ 

\  »~3    -  fa  *-<  fa  fa  tl  fa  fa  fc>        fa  >-3  *» 

to  fa  .    fa  .    q^  fa  fa  ^  ~*  :•£  :t*  fa  fa 

•-*   fa          fa  fa  fa  fa  fa   fa   fa  fa 

\      ••<  "*  .fa  t-a  -fa  fa  c>  fa  o  ^ 

<i  fafa  fa  £»  Ota  fa  fa  ►-a  fa  fa 

oo  ^  fa  fa  -°  ^  fa  ^  S  fa,  fa  ^ 

bi  fa  ^fafa^^-^fafafa 

fa  fa  fa  fc>  Co  fa  *>  ^  fa  fa        *«  -« 

^.^•^  ti  t-s^a  fa  H  ^  fa 
5  O^l  ^  fa  fa  fa  ^  fa  Q  fa- 
's     fa  ^  fa  fa  -ci  ^  ,        ^^^ 

fa        fa  ^  -«  fa  .     fa  fa  sq  fa        fa 

fa         fa  fa  fa  fa  fa  fa  ^  fa  >.  <^ 

fa  ^  »-a  »-a  b      ^S: 

:§:  *»  fa  fa  fa  k<  fa  fa  fa  fa 

^  fa  ?;  ^  ^  fa      a 

*  fa  fa  -«  Jb.  C*|  fa  fa  fa  ^ 

t»i5;  5s  fa  s^3  *  fa  fa  fa  fa 

CO  fa  ^^1-3  ^^^ 

fa  fa  ^  fa  fa  :t*  ig^^ 


3 


"^  ^      fa  fa          .  fa  ^^53^ 

fa  fa               fa              >-a  >S  >-S  fa               fa  "^  fa  fa 

fa           fa  -<*           fa  fa  fa  ^           fa  "°      _ 

SC^         fa  -«               fa  fa  fa  Co               .      fa  a*  ^ 

H  *>         fa  O               53  Cj  52 

Q>  IM          t-i~0  -"^J  (-3                 >S  ^3   fa   ^3 

fa  fa                               >3  ODs.  H              ^^5:0 

fa  fa                      -^  >*  fa  :§:          fa  fa  fa 

fa                          fa  -  "i  fa            t]«       4 

co  fa  |a  fa 

CO  5a.  -  3*   ^   fa 


fa  53:  fri 


•-3  ^  &  fa  fa  fa 

fa  52-  ^  ^  fa  ^ 


fa  i&fc  ibi 

fa  fa 


fa  O  ^-3  fa  fa  fa 

►-3  fa  O  It*  fa  Jfc> 

fa  fa  Co 

fa  ^  fa 


S  3 

52J                 fa  fa  fa   fa 

fa  »-g  fa  -° 

>*  ~* 

fa  fa     -  fa 

fa               ^  fa  fa  -« 

"^  fa  fa  >>■ 

K3  fa  ^  ^ 

^  fa  . 

fa  Ibi 

fa 

^  ^^ 

fa  fa  fa 


fa 

fa 


fa  fa  fa 

>-3  S^ 


fa 

o 

fa 


FIGURE   4-C 


-17- 


Now  go  through  the  procedure  described  in  section  4.2.1.1. 
You  will  be  asked  if  you  want  to  bypass  the  ratio  test.   You 
should  type  "OK"  unless  you  are  sure  all  the  cost  and  quantity 
figures  are  correct.   After  running  this  once  you  may  get 
another  list  of  errors.   If  you  are  sure  all  of  the  ratio 
errors  are  caused  by  small  quantities  or  incorrect  acceptable 
ratios,  run  the  ADDATA  function  again.   The  filename,  filetype 
is  once  again  ERROR  DATA.   This  time  when  you  are  asked  if  you 
wish  to  skip  part  of  the  validation  routine  type: 

BYPASS 
In  no  case  will  you  be  able  to  load  data  which  has  any  of  the 
first  four  problems  which  are  listed  above. 


4.2.2  Adding  New  Square  Footage  Information 

When  you  initialize  a  system  you  should  have  the  square  footage  for 
the  starting  dates  of  the  system  in  the  master  file.   However,  facilities 
often  change  their  square  footage  so  it  is  necessary  to  update  this  value. 
For  purposes  of  comparison  we  like  to  know  the  square  footage  for  each 
month  so  we  can  determine  how  much  differences  in  energy  use  was  caused 
by  changes  in  the  size  of  the  facility. 

When  you  make  changes  they  are  applicable  for  all  dates  in  the  future. 
We  assume  a  facility  will  stay  the  same  size  unless  we  are  given  contrary 
information.   Therefore,  if  you  have  several  changes  for  a  given  facility, 
enter  the  earliest  first. 

To  update  the  square  footage  information,  follow  the  procedure  below. 
A  sample  run  showing  the  exact  questions  is  exhibited  in  Figure  4-D. 

1.  Follow  the  procedure  in  Section  2  and  proceed  into  the  APL 
environment. 

2.  Load  the  workspace  containing  your  data  matrices  and  input  functions. 
To  do  this  type: 

)LOAD  Id 
where  id   is  the  I.D.  that  was  picked  in  section  4.1. 

3.  Then  type: 

NEWSQFT 
You  will  be  warned  about  making  the  changes  in  chronological  order 
and  then  you  will  be  asked  a  series  of  questions.   When  you  are 
asked  the  beginning  date  of  the  change,  answer  with  the  last  two 
digits  of  the  year,  followed  by  the  two  digits  for  the  month.   This 
might  be  confusing  at  first  but  it  was  done  to  be  consistent  through- 
out the  system.   At  this  point  don't  worry  about  the  fiscal  year,  the 
program  will  take  care  of  that. 
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NEWSQFT 
THIS   PROGRAM   CHANGES   THE   SQUARE   FOOTAGE   FCR     A    FACILITY    FOR     TEE 
MONTH   AND   YEAR     CHOSEN   AND   ALL    SUBSEQUENT  MONTHS  .   THE*  EFCR  E  IF   YOU 
ARE   ENTERING   SEVERAL    CHANGES   FCR     A    FACILITY   ENTER    THE   EARLIEST   FIRST 
IF   YOU   WI  SH   TO   EXIT   FROM   THIS   FUNCTION    TYPE    '  EXI  T1  OTHEi  II  SE 
TYPE    'OK1 
OK 

ENTER     THE  I    .D  .  NUMBER     OF    THE   FACI  II  TY    WHI  CH  I  S    TO    BE   CHANGED 
D: 

50504 
YOU   WI  LL    BE    CHANGI  NG    THE   SQUJR  E   FOOTAGE   FOR  : 
50504  UNIV.   OF  MASS  JAMHER  ST      (ACADEM:  C) 

IF   THI  S  I  S  I  NCCRRECT    TYPE    'AGAIN1    OTHERWISE    TYPE    'OK1 
OK 

ENTER     THE   BEGINNING    CALENDER    DATE   FCR     THE    CHANGE  IN   THE  FOi  M 
YYMM   (    FOi     EXAMPLE    78  09  ) 
7711 

THE   LISTED    VALUE   FOR    THAT  MONTH    WAS 
5778876 

ENTER     THE   NEW  SQUAR  E   FOOTAGE 
□  : 

5833000 
IF   YOU   WISH   TO   MAKE   ADDITIONAL    CHANGES   TYPE    YES   OTHERWISE   TYPE  NO 
NO 
16:45:17    11/20/78    SAMPLE 


FIGURE   4-D 
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4.  After  you  have  made  one  change  you  will  be  given  the  option  of 
making  additional  changes.   When  you  are  finished,  there  will 
be  a  slight  pause  as  the  workspace  is  automatically  saved. 
Then  the  time,  date,  and  the  workspace  I.D.  is  printed  out. 


4.2.3   Adding  New  Weather  Station  Degree  Day  Information 


Before  running  the  monthly  reports  you  should  see  that  the  station 
degree  day  information  is  up  to  date.   To  do  this  use  the  ADDEGD  function. 
In  order  to  do  this  use  the  following  steps.   Figure  4-E  is  a  sample 
run  of  this  program. 

1.  Follow  the  procedure  in  Section  2  and  proceed  into  the  APL 
environment. 

2.  Load  the  workspace  containing  your  data  matrices  and  input  functions 
To  do  this  type: 

)LOAD  Id 
where  <Ld   is  the  I.D.  that  was  picked  in  section  4.1. 

3.  Type: 

ADDEGD 
You  will  be  asked  what  month  you  wish  to  make  a  change  for. 
Enter  the  calendar  year  and  month.   Then  you  will  be  given  a 
list  of  the  stations.   Enter  the  number  of  the  station. 

4.  The  current  value  will  be  listed.   It  should  be  "1"  indicating 
no  information  has  been  entered.   Now  type  in  the  correct  value. 

5.  You  will  be  asked  if  you  have  other  information  to  enter.   When 
you  say  NO  the  workspace  will  be  saved. 

If  at  any  point  you  want  to  know  what  station  degree  day  information 
is  in  the  system,  type: 

SDEGD 
You  will  get  a  printout  something  like  the  one  below. 


SDEGD 

3 
16 

4 
41 

51 
171 

405 
622 

673 
89  7 

9  85 
1152 

1033 
1200 

9  71 
1120 

666 
738 

450 
555 

258 
338 

24 
37 

0 
2 

12 
47 

164 
223 

350 
413 

547 
586 

1065 
1161 

1320 

1412 

89  8 
9  72 

850 
9  20 

443 
511 

272 
310 

13 
60 

0 
16 

4 
32 

85 
189 

304 
481 

49  8 
711 

9  48 
1202 

1127 
13  59 

1057 
1255 

835 
1054 

480 
674 

2  09 
288 

17 
69 

11 
33 

1 
1 

1 
1 

1 

1 

1 
1 

1 
1 

1 
1 

1 
1 

1 

1 

1 
1 

1 
1 

1 
1 

The  columns  are  the  months  starting  with  July.   The  rows  are  the  stations  and 
the  various  groupings  represent  years. 
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ADDEGD 
THIS   m  OCR  AM  ALLOWS   YOU  TO   ENTER     DEGREE   DAY  T  NFCR  MATT  ON   FOR 
A    GIVEN  MONTH  JEAR  ,   AND    WEATHER    STATION. 

WHAT   CALENDER    YEAR    AND  MONTH  I N   THE   FORM   YYMM  DO   YOU   AT  SH 
TO   ENTER    DATA   FOR     (EXAMPLE    78  09) 
7808 
YOU  HAVE  THE   FOLLOW  NG   WEATHER     STATIONS  IN   YOUR    SYSTEM  . 

1  BOSTON 

2  WCR  CESTER 

ENTER    THE  NUMBER     OF   THE   STATION    YOU   H  SH    TO   ADD    THE  I NFORMATI  ON   FCR 
D: 

1 
THE   II  STED    VALUE   WAS 
1 

A    •  1 »   r  NH  CATES   THE  I  NFCR  MAT!  ON   NEEDS   TO   BE  ?  EPCR  TED  . 
WHAT  I  S   THE  NEW   VALUE? 
D: 

11 
DO    YOU   WISH   TO   ENTER     OTHEi     STATION   DEGR  EE  I  NFOR  MATT  ON .    ANSWER 
YES   CR     NO  . 
YES 

WHAT   CALENDER    YEAR    AND   MONTH  T  N   THE   FCR  M   YYMM  DO    YOU   WT  SH 
TO   ENTER    DATA    FCR     (EXAMPLE    78  09  ) 
7808 
YOU  HAVE   THE   FOLLOWING    WEATHER    ST  ATI  ONS  I  N    YOIR     SYSTEM. 

1  BOSTON 

2  WCR  CESTER 

ENTEt     THE   NUMBER    OF   THE   STATION   YOU    WISH    TO   ADD   THE  I  NFCR  MATI  ON   FCR 
D: 

2 
THE   II  STED    VALUE    WAS 
1 

A    »ll  I  NH  CATES   THE  I  NFORMATI  ON   NEEDS   TO    BE  R  EPCR  TED  . 
WHAT  I  S   THE  NEW   VALUE? 
□  : 

8 
DO   YOU   WISH   TO   ENTER     OTHER     STATION   DEGR  EE  I  NFCR  MATE  ON .    ANSWER 
YES   CR     NO  . 
NO 
16: m  :19    11/20/78   SAMPLE 


FIGURE   4-E 
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4.2.4  Deleting  a  Consumption  Record 

At  some  point  you  may  have  entered  a  card  for  a  fueltype  that  is 
never  used  by  a  facility.   This  will  show  up  on  the  reports  and  give 
the  impression  that  the  fuel  is  sometimes  used.   To  correct  this 
problem  you  can  delete  the  record  using  the  function  DELETERECORD 
described  below.   Figure  4-F  is  a  sample  run  of  this  program. 

1.  Follow  the  procedure  in  Section  2  and  proceed  into  the  APL  environment 

2.  Load  your  workspace  by  typing: 

)LOAD  Id 

3.  Type: 

DELETERECORD 

4.  When  queried  give  the  facility  I.D.,  fiscal  year,  month,  and 
fueltype.   If  this  record  was  not  in  the  system  you  will  be 
told  so.   Otherwise  the  facility,  month,  year,  fueltype, 
quantity,  and  cost  will  be  displayed. 

5.  You  will  be  asked  if  you  want  to  delete  more  records.   If  you 
answer  "YES"  you  will  be  back  in  step  3  otherwise  the  workspace 
will  be  saved. 


4.2.5  Adding  A  New  Facility  To  The  System 

As  time  goes  on  you  may  wish  to  expand  your  system  to  monitor  more 
facilities.   This  can  be  done  using  the  ADFAC  function.   Figure  4-G 
is  a  sample  run  of  this  program.   The  procedure  is  described  below: 

1.  Follow  the  procedure  in  Section  2  and  proceed  into  the  APL  environment 

2.  Load  your  workspace  by  typing: 

)LOAD  Id 

3.  Type: 

ADFAC 

4.  When  queried  enter  the  I.D.  number  of  the  new  facility.   It  must 
be  numeric  and  can  be  as  long  as  ten  digits. 

5.  When  queried  enter  the  name  of  the  facility.   This  can  be  up  to 
40  characters  long. 

6.  Next  you  will  be  asked  its  original  square  footage.   Enter  the 
square  footage  from  the  time  you  have  the  earliest  consumption 
information  for  the  facility.   If  it  has  changed  you  can  run 
NEWSQFT  after  finishing  this  function. 

7.  The  new  facility  will  now  be  added  into  the  system  and  the 
workspace  will  be  automatically  saved. 
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DELETBR  ECCR  D 
FCR     WHAT  FACIIITY   DO   YOU   WANT   THE  R  ECCR  D   DELETED? 

D: 

50611 
YOU   WT  LL   BE   DELETE  NG  A  R  ECCR  D   FCR 
50611         NORTH  SHORE   COMMUNITY    COLLEGE 
WHAT   FUELTYPE  I  S   TO    BE   EH  l€  NATED?    (EXAMPLE   N) 
E 

FCR     WHAT   FISCAL    YEAR     YY   DO   YOU   WANT    THE  R  ECCR  D    DELETED? 
D: 

79 
FCR     WHAT  MONTH(S)    DO    YOU   WANT   THE  ?  ECCR  D    DELETED? 
D: 

7 
THL  S  R  ECCR  D   HAS   NOT   BEEN   ENTER  ED  I  NTO    THE   SYSTEM . 
DO    YOU   WI SH   TO    DELETE   MOR  E  ?  ECCR  DS? 
ANSWIR     'YES'    Ot      'NO'  . 
YES 
FCR     WHAT   FACILITY   DO   YOU   WANT   THE  R  ECCR  D    DELETED? 

D: 

50504 
YOU   WI  LL    BE   DELETI  NG  A  R  ECCR  D   FCR 
50504         UNIV  .   OF  MASS  ./AMHBR  ST      {ACADEM  C) 
WHAT   FUELTYPE  I  S    TO   BE   EH  Ml  NATED?    (EXAMPLE   N) 
E 

FCR     WHAT  FISCAL    YEAR     YY   DO    YOU   WANT    THE  ?  ECCR  D    DELETED? 
D: 

79 
FCR     WHAT  MONTH(S)    DO   YOU   WANT    THE  R  ECCR  D   DELETED? 
D: 

7 
YOU   WI  LL    HAVE   THE   OPTI  ON   OF   DELETI  NG 
FACILITY         50504 
JULY  OF   FISCAL    YEAR        79 

ELECTRICITY 

THE   QUANTI  TY   LI  STED  I  S 
6064459 

THE    COST  II  STED  I  S 
175147 

DO    YOU   WANT   TO   DELETE   THESE  R  ECCR  DS? 
ANSWIR     'YES'    OF    'NO'  . 
YES 

DO   YOU    WI  SH   TO   DELETE  MOR  E  R  ECCR  DS? 
ANSWER     'YES'    Ot      'NO'  . 
NO 
16:53:02    11/20/78    SAMPLE 


FIGURE  4-F 
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)LOAD   SAMPLE 
SAVED    16:53: 3    11/20/78 

ADFAC 
WHAT  IS   THE  I  .D  .  NUMBER    OF   THE   FACT  LT  TY   YOU    WISH    TO   ADD? 

D: 

123456789 
WHAT  I  S   THE  NAME   OF   THIS   FACILITY? 
MASSACHUSETTS   ENERGY   OFFICE 
WHAT   WAS  ITS   ORIGINAL   SQUARE   FOOTAGE? 

D: 

54321 
10:41:34    11/21/78    SAMPLE 


FIGURE   4-G 
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5.0  OUTPUT  FUNCTIONS 


The  Massachusetts  Consumption  Monitoring  allows  the  user  to 
access  the  data  base  in  various  ways.  These  are  described  in  this 
section. 


5. 1   Checking  for  Completeness  of  Data 


Periodically,  you  may  want  to  see  whether  all  your  data  is  in  the 
data  base.   Whenever  data  is  added  to  the  input  phase  a  "1"  is  placed 
in  a  separate  matrix  to  indicate  the  existence  of  data.   The  COMPLETENESS 
routine  adds  up  these  numbers  for  a  given  fuel  type  to  see  if  all  the  data 
has  been  entered.   A  sample  is  shown  below: 

78 


10101 

12 

0 

0 

0 

0 

0 

0 

0 

12 

10102 

12 

0 

0 

0 

0 

0 

0 

0 

12 

10103 

12 

0 

0 

0 

0 

0 

0 

0 

12 

10104 

12 

0 

0 

0 

0 

0 

0 

0 

12 

10105 

12 

0 

0 

0 

0 

0 

0 

0 

12 

40101 

12 

1 

12 

0 

12 

0 

0 

12 

0 

40102 

12 

12 

11 

7 

12 

0 

0 

12 

0 

40103 

12 

0 

0 

0 

10 

0 

0 

0 

0 

40104 

0 

0 

0 

0 

0 

0 

0 

0 

0 

40105 

12 

12 

0 

0 

11 

0 

0 

11 

0 

The  numbers  represent  the  number  of  months  of  data  that  are  there 
for  each  fuel type  and  for  that  year  for  each  facility.   Remember  that 
if  a  facility  normally  uses  a  fuel  but  has  zero  use  in  a  given  month, 
a  card  should  still  be  entered  for  it. 

To  get  this  report  follow  these  steps.   A  sample  is  shown  in 
Figure  5-B. 

1.  Follow  the  procedure  in  section  2  and  proceed  to  the  APL  environment, 

2.  Load  you  workspace  by  typing: 

)L0AD  Id 

3.  Now  type: 

COMPLETENESS 

4.  You  will  be  asked  what  year  you  want  the  information  for;  answer 
this  question. 

5.  If  you  want  completeness  reports  for  other  years  go  back  to 
step  3. 
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COMPLETENESS 


WHAT    YEAR 

DO 

YOU 

WANT 

THE 

COMPLET, 

VNESS 

?  EPCR  T 

FOR  ? 

YOLR     CHOICES 

ARE 

• 
• 

73  76  78 

73 

ENTER  THE 
n. 

2  DIGIT 

YEAR 

NOW  , 

► 

us 

78 

10101 

12 

0 

0 

0 

0 

0 

0 

0 

12 

10102 

12 

0 

0 

0 

0 

0 

0 

0 

12 

10103 

12 

0 

0 

0 

0 

0 

0 

0 

12 

10104 

12 

0 

0 

0 

0 

0 

0 

0 

12 

10105 

12 

0 

0 

0 

0 

0 

0 

0 

12 

40101 

12 

1 

12 

0 

12 

0 

0 

12 

0 

40102 

12 

12 

11 

7 

12 

0 

0 

12 

0 

40103 

12 

0 

0 

0 

10 

0 

0 

0 

0 

40104 

0 

0 

0 

0 

0 

0 

0 

0 

0 

40105 

12 

12 

0 

0 

11 

0 

0 

11 

0 

40106 

12 

0 

12 

0 

12 

0 

0 

12 

0 

40107 

12 

12 

0 

0 

0 

0 

0 

0 

0 

FIGURE   5-B 
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5.2  Facility  Reports 


The  Massachusetts  Consumption  Monitoring  System  allows  the  user  to 
display  the  data  for  a  facility  for  a  given  year.  Appendix  A  is 
an  example  of  this  report.   If  you  are  printing  a  small  number  of  reports 
you  can  do  so  on  the  terminal  using  the  DISPLAY  function.   If  you  have  a 
large  number  of  reports  they  should  be  done  on  the  high  speed  printer 
using  the  PRINTDATA  function. 

In  order  to  print  out  these  reports  follow  the  steps  below.   Figure 
5-C  shows  examples  of  the  procedure  to  follow  to  print  these  reports. 

1.  Follow  the  first  two  steps  of  section  5.1  to  get  ready  for  output. 

2.  To  send  reports  to  the  high  speed  printer,  type: 

PRINTDATA 
To  display  reports  on  the  terminal  type: 
DISPLAY 

3.  Enter  the  facility  I.D.'s  you  want  in  response  to  the  query  from 
the  computer.   You  may  type  FACILITIES  if  you  want  all  facilities 
printed  out.  You  also  have  the  option  to  enter  any  name  that 
contains  a  series  of  I.D.  numbers  that  has  been  set  up  beforehand. 

A.  Enter  the  fiscal  year  you  want.   If  you  want  reports  for  more 
than  one  fiscal  year,  go  back  to  step  2  after  step  5. 

5.  If  you  are  using  the  DISPLAY  function  you  should  turn  the 

carriage  control  to  the  top  of  the  page  when  asked.  Then  press 
return  and  the  report  will  start  printing.  Make  sure  the  paper 
remains  straight  if  you  are  printing  several  reports. 

If  you  are  using  the  PRINTDATA  functions,  after  a  few  minutes,  the 
computer  will  indicate  that  the  reports  are  being  printed.  You 
should  make  arrangements  to  pick  up  the  reports. 
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PRINTDATA 
ENTER     THE  ID   NUMBER    OF   THE   FACILITIES    YOU    WISH    TO    DISPLAY 
IF   YOU   WANT  ALL   FACILITIES    TYPE    'FACILITIES  .' 
0: 

10101 
ENTER    THE   FISCAL    YEAR    YY   YOU   WISH    TO    BE   PRINTED. 

D: 

78 
PR  T  FT  LE  5153   TO   VNET 
PR  OGR  AM  COMPLETE 
12:25:  03**NOTE  FROM  VNET 
STON    AS  JOB  V  325056 


COPY  01  NOHOLD 


SENT  FILE  5153  ON  LINK  VNETWS 


TO    VS 


DI  SPLAY 
ENTER     THE  ID   NUMBER    OF   THE   FACILITIES   YOU   WISH    TO    DISPLAY 

D: 

50504    10101 

ENTER     THE  FISCAL   YEAR    YY   YOU   WISH    TO    DISPLAY 
D: 

78 
TIRN  PAPER    TO   TOP   OF   PAGE  ,   THEN   PRESS  RETURN. 


FIGURE   5-C 
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5.3  The  Monthly  Report 


The  system  allows  the  user  to  print  two  page  MONTHLY  reports.   An 
example  is  shown  in  Appendix  B  .   Before  running  this  report,  make  sure 
that  you  loaded  all  the  data  into  the  system  (section  A. 2.1).   Check 
the  COMPLETENESS  function  (5.1.1)  and  see  what  data  you  are  missing. 

When  vou  are  ready,  perform  the  following  steps.   Figure  5-D  shows 
a  sample  run. 

1.  Follow  the  first  two  steps  of  Section  5.1  to  get  ready  for  output. 

2.  Type: 

MONTHLY 

3.  When  you  are  asked  for  the  year,  enter  the  Fiscal  year  you  want 
a  report  for. 

4.  Enter  the  month  of  the  fiscal  year  when  asked. 

5.  Enter  the  facility  I.D.'s  you  want  in  response  to  the  query  from 
the  computer.   You  may  type  FACILITIES  if  you  want  reports  for 
all  facilities.   You  also  have  the  option  to  enter  any  name  that 
contains  a  series  of  I.D.  numbers  that  has  been  set  up  beforehand. 

6.  You  will  be  asked  if  you  want  station  degree  day  information 
displayed.   You  should  answer  "YES"  if  you  have  performed  the 
ADDEGD  function  (section  4.2.3)  for  the  current  month. 

7.  You  will  be  asked  if  you  want  to  display  any  back  years.   If  you 
have  any  available  you  should  type  YES. 

8.  You  should  then  wait  a  couple  of  minutes  and  then  you  will  get 
a  message  on  the  terminal  that  the  reports  have  been  sent  to 
the  printer.   You  should  arrange  to  pick  up  the  reports. 


5.4  Querying  the  Data  Base 


Often  one  wishes  to  obtain  information  that  cannot  be  accessed 
directly  by"  any  of  the  programs.   User's  who  are  somewhat  familiar  with 
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MONTHLY 
WHAT    2    DT  a  T  FT  SCAL    YEAR    DO    YOU   WANT    THE  REPORT   FOR 

G: 

73 
WHAT  MONTH   OF   THE   FT  SCAL    YEAR    DO    YOU   WANT   THE  REPORT  FCR 
FOR    EXAMPLE    1    FOR    JULY    12    FOR    JUNE 

D: 

2 
TF   YOU   WANT   THE  ?  EPCR  TS   FCR     ALL    FACILITIES    TYPE    %FAd  U  2T  ES% 
OTHER  Wl  SE   TYPE   THE   FACT  U  TY  ID   NUMBER  S   YOU    WANT  . 

D: 

10101    10103 
DO    YOU   WANT   TO    DISPLAY   DEGREE    DAY  I NFORMATI  ON   FOR     WEATHER 
ST  ATI  ONS?   ANSWER    YES   OR     NO 
YES 

YOU   HAVE   THE   OPTION    TO    DISPLAY  I  NFCR  MAT!  ON   FCR    ZERO, 
ONE,   OR     TWO   PREVIOUS   FISCAL    YEARS.    YOU   HAVE    THE   FOLLOWING 
FISCAL   YEA?  S   AV  AH  ABLE  . 
73    76    78    79 

T     SUGGEST   YOU   DISPLAY   THE   PAST   YEAR    AND   A    BASE    YEAR 
DO    YOU   WANT   TO   DISPLAY   ANY   BACK    YEARS? 
ANSWER     'YES'    OR     %NO% 
YES 

PLEASE   ENTER    THE   YEARS   YOU   WANT  IN    THE   ORDER    YOU   WANT    THEM. 
D: 

78    73 
PROG?  AM   COMPLETE 


FIGURE   5-D 
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APL  can  access  this  information  directly  from  the  data  base. 

The  primary  data  is  stored  in  4  dimensional  matrices  called 
COST  and  QUAN.   Their  dimensions  are  years,  facility,  fueltype,  and 
month.   Other  information  is  in  SQFT  and  DEGD.   These  have  dimensions 
of  years,  facilities,  and  months.   To  access  informaiton  you  must  obtain 
the  index  for  each  dimension.   This  can  be  done  using  the  \    operator 
which  is  above  the  "I"  on  the  keyboard.   Figure  5-E  shows  a  sample 
run  where  we  accessed  information  directly  from  the  data  base.   Here 
are  the  steps  to  take  to  access  data: 

1.  Follow  the  procedure  in  Section  2  and  proceed  to  the  APL  environment, 

2.  Put  the  data  into  the  active  memory  by  typing: 

)C0PY  Id 
where  XA   is  the  workspace  I.D.  you  determined  in  section  3.1. 
By  using  the  copy  command  the  data  can  not  be  accidentally  altered. 

3.  Find  the  indexes  of  the  information  you  want  to  access.   This  is 
most  clearly  seen  in  the  tables. 

4.  Type  in  the  name  of  the  matrix  and  the  indexes  you  want.   The 
terminal  will  respond  with  the  value. 

You  can  access  multiple  entries  in  the  same  command.   If  you 
leave  a  dimension  empty  all  values  will  be  assumed.   Remember  not  to 
leave  out  any  semicolons.   The  command: 

+/  [n]aAAay[4,nd2.x.&x] 
allows  you  to  add  up  all  the  entries  in  the  n   dimension  of  the  array 
and  indexes  you  have  specified. 

Do  not  use  the  +/  command  on  the  fueltype  dimension  of  the  quantity 
matrix  since  the  different  fuels  are  in  different  units. 

If  you  want  to  add  up  or  display  some  of  the  entries  in  a  give 
dimension  but  not  all,  you  can  put  multiple  values  in  a  given  dimension. 
You  can  either  enter  several  values  or  use  the  "\  "  command  with  a  single 
argument.   Examples  of  this  are  shown  in  Figure  5-E. 
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We  {iAAt  copy  the  wonk^pace  nathen.  than  loading  it 

)COPY  SAMPLE 
SAVED    10 :  »H  : 34  11/21/78 

We  dete/mlne  the  indexed  &OK  the.  yean,  and  facituty 
we  ate  inteneAted  in 

YEA?  Si  76 
2 

FACILITIESxSOSO^ 
62 

v     We  determine  the  indcceA  ion.  faeZtypc,  natunal  gaA,  and  the  month,  Hay. 
The  faeJUtype  muAt  be  in  quote*  Aince  it  iA  a  literal 

FUELTYPES\%Ny 
2 

MONTHS i 5 
11 

We  now  hind  the  coAt  and  quantity  fan  thoAe  panjmeteJiA 

COST  i2iS2;2;  11  ] 
1756 

GtMtf [2;62;2;11 ] 
7382 

Bu  leaving  out  the  coAt  te,nm  we  could  have  a  Lifting  oi  the  coAt 
fan  each  month 

COST  [2;  62;  2;  ] 
3  35  773  1847  2253  1968  1736  1333  2006  2146  2228  1756  19  047 

LlAing  the  +/  command  we  could  get  total  coAt  fan.  the  yean 

+  /C0Sr[2;62;2;  ] 
38034 

Leaving  out  the.  faelXype  we  get  total  uAage  o{  all  faeltypeA 
fan.  May 

+  /COSTl2i62all  ] 
327553 

We  could  oIao  get  the  total  coAtA  fan  all  facilitieA,   faeltypeA,  and 
monthA  fan  each  yean. 

+  /  +  /  +  /COSTl-%;;  ] 
13139706    339  82940    39980522    4770614 

IhiA  u>  the  total  coAt  fan.  the  month  oi  May  fan  all  facititieA  by  faeltypeA 

+  /Cl3C705r[2;;;ll  3 
1152718    134985    7353    136774    44277    16323    5636    788259     80751 
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6.   EDITING 


The  user  has  the  ability  to  change  CMS  files  or  APL  programs. 
The  procedure  is  similar  but  not  identical.   Section  6.1  describes  in 
detail  how  to  edit  a  CMS  file.   Section  6.2  describes  the  slightly 
different  procedure  for  editing  in  APL. 


6.1  The  CMS  Editor 


1.  Get  into  the  CMS  environment.   If  you  are  not  already  there 
follow  the  procedures  in  section  2. 

2.  Now  type: 

EDIT  in  it 
where  in  it     are  the  filename  and  filetype  of  the  file  you 
want  to  edit. 

3.  Now  if  you  wish  to  list  out  the  entire  file  type: 

TYPE  * 

4.  Now  get  to  the  line  you  want.   To  do  this  make  use  of  these 
two  commands: 

Ntt 

Utt 
where  n   is  the  number  of  lines  you  wish  to  go  forward  or  up. 
You  may  use  these  commands  as  much  as  you  want  until  you  get 
to  the  line  you  want  to  correct. 

5.  Make  the  correction.   To  do  this  use  the  command: 

C/wiong  &nt/iy/ flight  2.ntn.g 
The  computer  will  replace  the  incorrect  line  with  the  corrected 
version.   If  the  series  of  characters  you  want  to  change  appear 
more  than  once,  the  left  most  series  will  be  corrected.   There- 
fore before  making  a  change,  make  sure  that  you  are  correcting 
what  you  think  you  are  correcting.   Spaces  are  treated  as 
characters  so  make  sure  the  number  of  characters  and  spaces 
between  the  two  slashes  is  equal  to  the  number  between  the 
second  slash  and  the  carriage  return.   The  corrected  line 
will  now  be  printed  out. 

To  add  new  lines  type: 

INPUT 
You  will  now  be  able  to  add  as  many  lines  as  you  like.   When 
you  are  done  with  your  inputs,  press  the  RETURN  key  twice. 

To  delete  a  record  go  to  the  line  it  is  on  and  type: 
DELETE 

6.  After  you  have  made  a  change  you  can  go  back  to  step  4  and 
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make  additional  changes. 

7.  When  you  are  done  type: 

FILE 
and  the  new  form  of  the  file  will  replace  the  old  run. 
If  you  have  made  mistakes  and  don't  want  the  new  version 
saved  type : 

QUIT 

8.  You  will  now  be  back  in  CMS  and  you  can  go  on  from  there, 


6.2  The  APL  Editor 


This  is  similar  to  the  CMS  Editor  but  the  following  differences 
should  be  noted. 

Step  1  You  should  enter  the  APL  environment 

Step  2  To  get  into  the  editor  type: 
E'wajne' 
where  name,   is  the  name  of  the  function  you  wish  to  edit. 
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7.1  Correcting  Errors  in  APL 


If  you  make  a  mistake  while  typing  in  an  entry,  it  can  be  corrected, 
To  do  so  backspace  to  the  error  and  quickly  press  the  break  or  attention 
key.   You  may  then  continue  typing  from  the  point  of  the  error. 

Sometimes  when  you  are  executing  a  function  an  error  will  occur. 
The  line  of  code  where  the  error  occured  will  be  listed  along  with  the 
reason  for  the  error.   Generally  the  cause  of  the  error  is  improper 
inputs.   After  identifying  your  error  you  must  get  out  of  the  suspended 
state.   To  do  this  type  a  right  facing  arrow. 


If  you  were  in  the  ADDATA  function,  you  must  close  the  file.   To  do  this 
type: 

CLOSE 
You  may  now  try  and  run  the  function  again.   If  you  are  still  having  trouble 
consult  the  Systems  Manual.   If  you  get  a  READ  ERROR  you  should  reenter 
the  line.   If  you  want  to  interrupt  the  computer  while  it  is  doing  something 
such  as  printing  quickly,  hit  the  attention  or  break  key.   If  the  computer 
every  displays  "CP"  while  you  are  doing  something  type: 

BEGIN 
and  you  will  be  returned  to  where  you  left  off. 


7.2  Correcting  Errors  in  CMS 

If  you  are  typing  something  and  you  discover  you  have  made  an  error, 
type: 

C 
on  the  line  you  made  the  error.   They  press  the  RETURN  key  and  the  whole 
line  will  be  ignored. 
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AUGUST 


24,  1978 


MONTHLY  ENERGY  CONSUMPTION  REPORT 


JUNE 


1978 


40123   TAUNTON  STATE  HOSPITAL 


THIS  REPORT  GIVES  INFORMATION  ON  ENERGY  CONSUMPTION  AT  YOUR 
PACILITY.   IT  IS  BASED  ON  THE  ^ENERGY  CONSUMPTION  REPORTING  FORMS* 
YOU  HAVE  SUBMITTED. 


BELOW  IS  DATA  FOR  THIS  JUNE 
PREVIOUS  YEARS, 


AND  FOR  JUNE 


OF 


MONTHLY  USAGE 


FY78 


FY  76 


FY73 


ELECTRICITY   KILOWATT  HOURS 

DOLLARS 

NATURAL  GAS   100  CUBIC  FEET 

DOLLARS 


OIL  NO.  2 


OIL  NO.  6 


GALLONS 
DOLLARS 

GALLONS 
DOLLARS 


TOTALS 


MKBTU  (SOURCE) 
DOLLARS 


SOUARE  FOOTAGE 


174344 

212517 

232600 

7447 

7012 

7908 

932 

8  34 

3404 

397 

420 

765 

655 

699 

1066 

333 

245 

373 

27938 

31409 

31054 

9005 

88  76 

9937 

6431 

7390 

7886 

17182 

165  53 

18983 

949355 

949355 

949355 

DEGREE  DAYS  FOR  THIS  MONTH 


FOR  YOUR  FACILITY 


19 


*** 


**♦ 


WEATHER  STATIONS 


NORMS 


BOSTON 
WORCESTER 


36 

78 


17 

69 


13 

60 


24 
37 


APPENDIX   B 
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40123 


PAGE  2 


THE  INFORMATION  B^LOW  IS  THE  CUMULATIVE  TOTAL  FOR  JULY  THROUGH  JUNE 


YFAR-TO-DATE 


FY78 


FY76 


FY73 


ELECTRICITY   THOUSAND  KWH: 
DOLLARS: 

OTHER  FUELS   MILLION  BTUS: 
DOLLARS: 


2443 

2649 

2810 

104682 

90564 

95545 

163954 

1568  29 

193055 

353395 

330859 

411009 

DEGREE  DAYS: 


4515 


ELECTRICITY   KWH/SQFT: 

OTHER  FUELS  1000  DTU/SQFT 

TOTAL  1000  BTU/SQFT: 
TOTAL  COST/SOFT 


2.57 

2.79 

2.96 

173 

165 

203 

202 

197 

237 

.48 

.44 

.53 

THE  FIGURES  BELOW  REFER  TO  CHANGFS  BETWEEN  THE  TWO  YEARS  LISTED. 


PERCENT  CHANGE 


ELECTRICITY  BTU/SQFT: 

OTHER  FUELS  BTU/SQFT: 

TOTAL        BTU/SQFT: 
DOLLARS/SQFT: 
COST/MILLION  BTUS: 


Y7  8/76 

FY7R/73 

-7.75 

-13.05 

4.54 

-15.07 

2.56 

-14.79 

8.70 

-9.57 

5.98 

6.12 

SYSTEMS  MAINTENANCE  MANUAL 


By 


Daniel  Kahn 


Massachusetts  Energy  Office 
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1 .   INTRODUCTION 


This  manual  is  intended  for  use  by  programmers  who  wish  to  make 
changes  to  the  software  for  Massachusetts  Consumption  Monitoring  programs. 
It  should  be  used  in  conjunction  with  the  User's  Manual  which  describes 
how  the  software  is  used. 

This  software  was  written  in  VSAPL  on  an  IBM  370  VM/CMS  supported 
machine.   Modifications  might  be  required  if  a  different  machine  is  used. 
With  some  modifications  it  should  be  possible  to  run  these  programs  on 
a  mini-computer  with  APL  capabilities. 

This  code  was  written  to  be  as  general  purpose  as  possible,  and  to 
allow  for  easy  access  of  data.   However,  changes  may  be  necessary  depending 
on  the  user's  requirements.   To  simplify  interpretation,  a  limited  set 
of  APL  operators  are  used.   The  listings  at  the  end  of  this  manual  are 
current  as  of  December  1,  1978  . 
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2.   CALLING  SEQUENCES 


Calling  sequences  show  the  order  in  which  functions  are  executed. 
The  functions  on  the  far  left  are  the  main  functions,  which  then  call 
the  subf unctions  in  the  order  listed.   Some  of  these  call  other  functions 

These  listings  serve  as  a  guide  to  other  sections  of  this  manual. 


BUILDARRAYS 


-  CONSTANTS 


-  MINMAX 


-  FACIL- 


-  LITERALS 


ENTERFACID 


OPEN 


ADDATA  — t 


—  OPEN 

—  READCARD 

—  VALIDATE 

—  FINDEGD 
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D I SPLAY  — i 


-  DTITLE 

-  DFILL 

-  DTOTALS 


PRINTDATA  -, 


PRINTBOS 
DTITLE 

-  DFILL 

-  DTOTALS 

-  PRINTPAGE 

-  PRINTCLOSE 


MONTHLY 


-  QUESTIONS 
■  HEADER 

KEEP 

PRINTNEWTON, 

FIRST 

TOTALS 

PDEGD 
•  PRINTPAGE 


-  SECOND 


~L 


-   PRINTPAGE 


—  PRINTCLOSE 


CHANGES 
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3.   BRIEF  DESCRIPTION  OF  FUNCTIONS 


3.1   Setup  Functions 


BUILDARRAYS : 
CONSTANTS : 

MINMAX: 

FACIL: 

ENTERFACID : 
OPEN: 


Establishes  data  matrices 

Defines  values  for  global  variables  used  in  inputs 
and  output  workspaces 

Defines  minimum  and  maximum  acceptable  values  for 
the  cost/quanity  ratio  in  the  input  phase 

Takes  the  facility  I.D.'s,  names,  and  square  footage 
form  the  master  file  and  puts  it  into  global  variables 

Reads  the  CMS  master  file 

Opens  shared  variables  with  a  CMS  file 
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3.2  Input  Functions  For  Entering  Consumption  Data 


ADDATA: 


Takes  a  data  record  from  the  CMS  consumption  file 
and  puts  it  into  the  APL  matrices.   Prints  out 
invalid  records  and  also  stores  them  in  a  CMS 
file.   It  then  saves  the  workspace. 


READCARD : 


Takes  a  CMS  card  image  and  breaks  it  down  into 
its  various  data  elements. 


VALIDATE : 


Checks  each  record  to  see  if  it  is  valid.   If  it  is 
not,  it  is  put  into  ERRORMATRIX. 


FINDDEGD : 


If  no  degree  day  information  is  available  put  in  "l1 


3.3  Other  Input  Functions 


NEWSOFT : 


Allows  the  terminal  user  to  enter  new  square  footage 
information. 


ADDEGD : 


Allows  the  terminal  user  to  enter  station  degree  day 
information. 


ADFAC: 


Allows  the  user  to  enter  new  facilities  to  be  monitored 
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3 . 4  Output  Functions  -  Facility  Summary  Reports 


DISPLAY: 
PRINTDATA: 
DTITLE : 
DFILL : 
DTOTALS : 
PRINTBOS : 

PRINTPAGE : 
PRINTCLOSE : 


Prints  the  Facility  Consumption  Reports  on  the  terminal 

Prints  the  reports  on  the  high  speed  printer 

Sets  up  the  titles  for  the  report 

Puts  the  data  by  fueltype  into  the  report 

Puts  the  totals  into  the  report 

Opens  a  shared  variable  to  the  printer  for  output  to 
CallData  in  Boston 

Prints  a  page  on  the  high  speed  printer  line  by  line 

Closes  the  shared  variable  with  the  printer 
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OUTPUT  FUNCTIONS  -  Monthly  Reports 


MONTHLY : 


QUESTIONS : 


Calls  all  the  functions  necessary  to  print  out 
monthly  reports 

Asks  the  user  all  necessary  questions  and  processes 
the  answers 


HEADER: 

KEEP: 

FIRST: 

TOTALS : 
PDEGD : 

SECOND : 

CHANGES : 

PRINTNEWTON : 


PRINTPAGE  and 
PRINTCLOSE: 


Establishes  the  headings  for  the  first  page  of  the  report 

Establishes  the  headings  for  the  second  page  of  the  report 

Puts  the  consumption  and  cost  for  each  fueltype  into 
the  first  page  of  the  montly  report 

Puts  the  totals  into  the  first  page  of  the  report 

Puts  in  the  degree  day  and  square  footage  information 
at  the  bottom  of  the  first  page  of  the  report 

Fills  in  all  the  information  in  the  upper  part  of  the 
second  page  of  the  report 

Fills  in  the  bottom  part  of  the  second  page  of  the 
report 

Opens  a  shared  variable  with  the  printer  for  high  speed 
output  in  Newton,  Mass.   Also  requests  the  use  of 
special  paper 

Same  as  in  the  facility  summary  report 
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OTHER  OUTPUT  FUNCTIONS 


COMPLETENESS : 


Prints  out  the  number  of  months  for  which  data  has  been 
reported  for  each  fuel  type 


COSTSUM: 


QUANSUM: 


Prints  out  the  total  amount  of  money  spent  by  each 
facility  for  each  fueltype  in  the  year  given 

Prints  out  the  total  quantity  of  fuel  consumed  by  each 
facility  for  each  fueltype  in  the  year  given 
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DICTIONARY  OF  GLOBAL  VARIABLES 


The  following  is  a  list  of  the  global  variables  used  in  the  system 
Local  variables  which  are  created  and  used  within  a  single  program 
are  not  included.   The  letter  in  parentheses;  N  or  L,  indicates  whether 
the  array  is  numeric  or  literal.   The  number  is  the  rank  of  the  array. 


AMON  (L2) 


AMONTHS  (L2) 


COMP  (N4) 


COST  (N4) 
DEGD  (N3) 
DFUELS  (L2) 
DMON  (L2) 


Contains  the  three  letter  abbreviations  for  the  months 
of  the  fiscal  year 

The  months  of  the  calendar  year  written  out  with  a 
maximum  of  nine  letters 

A  matrix  consisting  of  zeros  and  ones.   A  one  indicates 
that  data  for  a  given  year,  facility,  fuel type,  and 
month  has  been  reported.   This  can  be  used  to  see  if 
a  facility  has  failed  to  report  a  fuel  they  normally 
use  in  a  given  month 

Contains  the  amount  of  money  spent  by  year,  facility, 
fueltype,  and  month 

Contains  heating  degree  days  reported  by  facilities  for 
each  month.   A  "1"  indicates  no  information  was  reported 


12  character  abbreviations  for  the  fueltypes  and  units. 
This  is  used  in  the  DTITLE  function 

3  letter  abbreviation  for  the  months  in  fiscal  year  order 
Contains  three  spaces  before  and  two  spaces  after  each 
entry 

ERRORMATRIX  (L2)   This  is  the  error  list  from  the  last  time  the  ADDATA 

function  was  run.   It  is  the  APL  version  of  what  was 
written  to  ERROR  DATA  in  CMS 

FACILITIES  (Nl)   A  list  of  the  facility  I.D.'s  that  are  being  monitored 

FUELTYPES  (Ll)    A  vector  consisting  of  the  one  letter  abbreviation  for 

each  fueltype. 


MAXIMUM  (N2) 
MINIMUM  (N2) 
MONTHS  (Nl) 


The  highest  allowable  ratio  of  cost  to  quantity  for  each 
fueltype.   It  is  indexed  by  year  and  fueltype 

The  lowest  allowable  ratio  of  cost  to  quantity  for  each 
fueltype.   It  is  indexed  by  year  and  fueltype. 

The  number  of  the  months  in  the  order  they  occur  within 
the  fiscal  years 


NAMES  (L2)        The  names  of  the  facilities  being  monitored. 

NDEGD  (N2)        Contains  30  year  degree  day  norms  for  the  weather  stations 
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NFAC  (NO): 


NFLS  (NO) 
NSTATIONS  (NO) 
NYRS  (NO) 
QUAN  (N4) 


SDEGD  (N3) 

SOURCE  (Nl) 
SQFT  (N3) 
STATIONS  (L2) 

TYPE  (L2) 
UNITS  (L2) 
YEARS  (Nl) 


The  number  of  facilities  that  are  being  monitored 
at  a  given  time. 

The  number  of  fueltypes  being  monitored 

The  number  of  weather  stations  being  monitored 

The  number  of  years  being  monitored 

Contains  the  quantity  of  fuel  consumed  indexed  by  year, 
facility,  fuel type,  and  month.  It  is  measured  in  units 
for  each  fuel type. 

Degree  days  for  each  weather  station  for  each  month 
and  year 

The  conversion  of  units  of  a  fuel  to  BTUs  at  the  source 

The  square  footage  for  each  facility  by  year  and  month 

The  names  of  the  weather  stations  that  will  be  printed 
out  in  the  monthly  report. 

Names  of  fueltypes  for  monthly  reports 

Units  of  fuels  for  monthly  reports 

The  years  that  are  being  monitored 
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5.   DETAILED  PROGRAM  DESCRIPTIONS 


5. 1   Setup  Programs 


This  phase  initializes  the  data  matrices,  constants,  and  literals 
used  throughout  the  programs.   The  system  has  been  designed  so  that 
hopefully  all  the  adjustments  for  different  organizations  can  be 
performed  in  this  stage.   These  programs,  with  the  exception  of 
MINMAX,  should  only  be  used  when  setting  up  a  new  system. 


BUILDARRAYS : 


Calls  the  other  programs  in  this  phase 
main  data  arrays  are  initialized. 


Then  the 


CONSTANTS : 


Establishes  various  global  constants.   The  years  to 
be  monitored  are  entered  interactively. 


MINMAX:   Establishes  the  acceptable  range  for  the  ratio  of 

cost/quantity  for  each  fueltype.   In  the  input  phase 
if  the  ratio  for  a  given  fueltype  and  year  is  smaller 
than  the  MINIMUM  or  greater  than  the  MAXIMUM  the  record 
is  put  aside.   The  range  should  not  be  too  small  or 
too  large.   If  it  is  too  small,  too  many  records  will 
be  rejected  to  deal  with  them  effectively.   If  the 
range  is  too  large  incorrect  data  may  be  put  into 
the  system. 

The  years  that  the  MINIMUM  and  MAXIMUMS  are  for  should 
be  the  same  as  those  inputted  in  BUILDARRAYS.   If  they 
are  not,  then  default  values  are  put  in  for  all  years. 
These  default  values  are  not  dependent  on  the  year  so 
if  there  were  changes  in  fuel  prices  the  ranges  will 
be  too  large. 

Before  setting  up  a  system  you  should  see  that  the  years 
and  values  in  the  MINMAX  program  are  correct.   If  after 
setting  up  the  system  you  would  like  to  change  the 
values  you  can  edit  MINMAX  and  then  execute  the  function. 

FACIL:   Calls  ENTERFACID  which  creates  the  IDSOFT  matrix  containing 
the  facility  I.D.s,  names,  and  original  square  footage. 
FACIL  finds  the  number  of  facilities.   Then  it  breaks 
down  the  original  matrix  and  creates  the  arrays: 
FACILITIES,  NAMES,  and  SQFT. 


ENTERFACID 


Opens  the  master  file.   Then  it  reads  the  file  and  creates 
the  array  IDSOFT.   Then  the  file  is  closed. 


LITERALS:   Defines  various  literals  that  are  used  throughout  the 

system.   The  names  and  units  for  the  fueltypes  are  put  in 
two  forms.   If  you  ever  want  to  change  the  fueltypes 
being  monitored  this  function  will  have  to  be  altered. 
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5. 2  Input  Programs  -  Consumption  Data 


These  programs  enter  information  into  the  data  base.   Great  care 
should  be  taken  in  modifying  these  programs  in  an  existing  system  so 
that  data  is  not  accidentally  altered.   It  is  suggested  that  any  changes 
be  thoroughly  tested  in  a  temporary  workspace. 


ADD ATA: 


READCARD ; 


Adds  consumption  data  from  a  CMS  file  into  the  APL 
data  base.   If  the  filename  starts  with  ERROR  the 
user  is  given  the  option  of  bypassing  the  cost/ 
quantity  validation  checks.   The  program  reads  one 
card  image  and  processes  it.   Then  it  is  checked  by 
the  VALIDATE  routine.   If  it  is  rejected  we  go  on 
to  the  next  record.   Otherwise  the  COST,  QUAN,  and 
DEGD  information  is  entered.   A  "1"  is  put  into  the 
COMP  matrix.   Then  the  ERRORMATRIX  is  printed  out. 
The  ERRORMATRIX  is  written  into  a  CMS  file  called 
ERROR  DATA.   Then  the  workspace  is  saved. 

Takes  the  information  off  the  card  image  and  puts  it 
in  a  form  that  can  be  used  later  in  the  progam.   The 
indexes  are  determined  and  the  input  information  is  put 
into  numeric  form. 


VALIDATE : 


First  checks  to  see  if  any  of  the  indexes  are  wrong. 
In  an  index  was  not  found  in  the  READCARD  function 
a  value  of  the  number  of  elements  in  the  array  plus 
one  is  returned.   Therefore,  we  check  to  see  if  the 
index  is  greater  than  the  number  of  elements.   If  so 
the  record  is  considered  an  error. 


If  in  the  ADDATA  function  the  user  indicated  he  did  not 
want  the  cost/quantity  validation  performed  SKIP  has  a 
value  of  one,  so  at  this  point  the  record  is  passed. 
Otherwise  a  check  is  made  to  see  if  the  quantity  was 
zero.   There  is  sometimes  a  charge  even  with  zero  quantity 
so  these  records  are  passed.   Then  a  check  is  made  to  see 
that  the  ratio  is  less  than  the  maximum  and  greater  than 
the  minimum.   If  this  is  not  the  case  the  record  drops 
through  as  an  error. 

In  case  of  error  the  record  number  from  the  CMS  file  is 
catenated  onto  the  card  record.   Then  this  is  catenated 
onto  the  ERRORMATRIX.   The  matrix  starts  with  dimensions 
of  0  90.   Every  time  a  new  record  is  added,  the  first 
diminsion  increases  by  one.   Then  FLAG  is  set  to  "1" 
so  that  this  record  will  not  be  added  to  the  data  base. 


FINDDEGD 


If  no  degree  day  information  was  reported  a  "1"  is  put  into 
the  DEGD  matrix.   If  this  information  was  already  in  the 
system,  it  is  left  there. 
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The  weather  stations  to  be  monitored  are  put  into 
STATIONS  and  the  number  into  NSTATIONS.   The  norms 
for  the  stations  are  put  into  NDEGD.   Then  the  degree 
day  information  for  the  various  years  which  were  available 
when  the  system  was  set  up  are  put  into  SDEGD.  When 
you  wish  to  add  new  degree  day  information,  you  should 
use  the  ADDEGD  function.   Remember  that  if  this  function 
is  ever  run  after  the  system  is  set  up,  the  new  degree  day 
information  will  be  eliminated. 
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5.3  Other  Input  Programs 


NEWSQFT:   Accepts  input  from  the  terminal  on  what  square  footage 
change  is  to  be  entered.   If  the  month  entered  is  not 
in  the  system,  the  first  available  month  is  put  in  its 
place.   The  program  takes  the  existing  information  on 
a  facility  and  unravels  it  from  two  dimensions  into  a 
vector.   The  new  information  is  put  into  the  vector 
and  the  vector  is  reloaded  into  the  SQFT  matrix.  When 
the  operator  is  finished  the  workspace  is  saved. 


DELETERECORD : 


The  program  asks  which  record  is  to  be  deleted.   Then  this 
information  is  given  back  to  the  operator.   The  currently 
listed  cost  and  quantity  information  is  also  displayed. 
The  operator  is  asked  whether  or  not  he  wishes  to  delete 
the  record.   If  he  does,  zero  is  put  in  for  all  the  data 
including  completeness  (Comp) .  When  the  operator  is  finished 
the  workspace  is  saved. 


ADDEGD:   This  function  accepts  input  from  the  terminal  on  which 

weather  station  the  operator  wishes  to  change.   Then  the 
currently  listed  value  is  displayed  and  the  operator 
is  allowed  to  enter  the  new  data.  When  all  changes 
have  been  made  the  workspace  is  saved. 


ADFAC:   Allows  the  operator  to  enter  new  facilities  to  be 
monitored.   An  extra  3-space  is  created  for  COST, 
QUAN,  and  COMP.   This  is  catenated  onto  the  matrix. 
The  same  is  done  for  DEGD,  SQFT.  and  names.   Then  the 
workspace  is  saved. 
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5. A  The  Facility  Reports 


DISPLAY:   This  function  prints  out  the  one  page  yearly  facility 
summary  reports  on  the  terminal.   The  program  receives 
input  from  the  terminal.   Then  the  literal  matrix, 
PAGE  is  defined.   This  is  then  assigned,  by  the 
various  subprograms,  all  the  output  for  each  page. 
This  is  then  displayed. 


PRINTDATA: 


Performs  the  same  functions  as  DISPLAY.   In  addition 
it  calls  PRINTBOS,  PRINTPAGE ,  and  PRINTCLOSE  so  the 
reports  are  sent  to  the  high  speed  printer. 


DTITLE:  Calls  for  the  date  and  time.  Then  the  month,  day 
and  year  are  put  at  the  top  of  the  output  matrix. 
Then  the  various  headers  are  put  into  the  matrix. 

DFILL:   This  program  first  checks  to  see  if  the  fueltype  was 
reported  by  the  facility  in  the  relevant  year.   If 
it  was  reported  the  name  and  units  are  put  into  the 
output  matrix.   Then  each  month  is  checked.   If 
for  a  given  month  the  fuel  was  reported,  the  quantity, 
which  might  be  zero  is  put  into  the  matrix.   Other- 
wise stars  are  put  in  the  spot.   After  all  the  months 
are  checked  the  total  is  put  in  at  the  end  of  the  line, 


DTOTAL:   This  program  puts  in  the  totals  at  the  bottom  of  the 
report.   First  total  BTU's  are  found.   The  array  T 
gives  the  BTTJ  consersion  factor  in  a  form  that  is 
conformable  with  the  quantity  array.   After  BTUs 
for  each  month  are  found,  the  total  is  calculated. 
Then  the  square  footage  and  BTU's/ square  foot  are 
calculated.   Finally  cost  information  is  put  into 
the  matrix. 
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5.5  Monthly  Reports 

It  is  likely  that  new  users  may  wish  to  make  changes  to  the  format 
of  this  report.   To  aid  in  debugging  the  program,  DISMONTHLY  can  be 
run.   This  is  the  same  as  MONTHLY  except  that  rather  than  sending  the 
reports  to  the  printer,  they  are  written  on  the  terminal. 

MONTHLY:   This  is  the  core  program  that  produces  the  monthly 
report.   It  first  calls,  QUESTIONS,  which  asks  the 
user  what  he  wants  in  the  reports.   Then  the  headers 
are  put  in  for  the  two  pages.   These  are  not  changed 
between  reports.   Then  the  print  file  is  opened.   If 
a  facility  is  not  found  a  message  is  displayed  on  the 
terminal. 


QUESTIONS 


HEADER: 


KEEP 


The  data  that  will  be  used  for  a  given  facility  is  pulled 
out  so  that  the  large  arrays  won't  have  to  be  searched 
as  often.   We  then  see  if  there  is  any  data  for  a 
facility  in  a  given  year.   If  there  was  no  data  we 
don't  do  any  comparisions  with  that  year.   If  there 
is  no  data  for  any  years  no  facility  report  is  printed. 
ASOURCE  is  an  array  that  contains  the  BTU  conversion 
factors.   It  is  made  to  be  conformable  with  a  quantity 
array  used  later  in  the  program.   Then  the  programs  are 
called  to  set  up  the  two  pages  and  print  them.   Then  we 
go  through  the  loop  again.   When  all  the  reports  have 
been  printed  the  printfile  is  closed. 

This  program  first  asks  the  calendar  year  and  month  the 
report  is  for.   This  is  then  converted  to  fiscal  year. 
Then  the  user  is  asked  which  facilities  he  wants  the 
report  for.   If  only  one  is  requested  it  must  be 
converted  from  a  scalar  to  an  array.   If  the  user 
doesn't  want  any  station  degree  day  information  printed 
out  a  flag  is  set  so  that  that  page  is  skipped.   Then 
the  user  is  asked  what  back  years  he  wants  displayed. 
These  are  catenated  with  the  current  year. 

This  function  first  asks  the  date  and  time.   The  day, 
month,  and  year  are  put  on  the  top  of  the  page.   Then 
all  the  headings  for  the  first  page  are  put  into  the 
output  matrix  after  each  facility  is  printed. 

This  sets  up  the  header  for  the  second  page.   The  left 
side  of  the  page  does  not  change  from  one  report  to  another 
so  it  is  not  erased. 


FIRST:   Puts  in  headers  that  vary  from  report  to  report.   Then 

the  program  determines  which  fueltypes  have  been  used  by 
this  facility.   If  a  fuel  is  used  its  name  and  units 
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are  put  in  the  matrix.   Then  the  usage  for  each  year 
for  the  month  in  question  is  put  into  the  matrix.   If 
the  data  was  not  reported  for  a  year,  stars  are  printed 
in  its  place. 

TOTALS:   Puts  in  the  totals  for  the  first  page.   The  total 
quantity  in  MMBTUs  is  calculated.   Then  total  cost 
for  the  months  in  question  is  added  up.   These 
numbers  are  put  into  the  output  matrix. 

PDEGD:   The  square  footage  information  is  processed.   Then 

the  facility  degree  days  are  reported.   A  "1"  indicates 
no  information  was  reported  so  we  replace  it  by  stars. 

Then  the  weather  station  information  is  printed  out. 
If  the  user  indicated  in  QUESTIONS  that  he  wanted 
this  information  skipped  it  is  not  printed  out, 


SECOND:   The  headers  are  put  in  that  vary  from  report  to  report. 
INDEX  is  defined  as  the  columns  in  which  information 
is  to  be  placed.   The  various  quantities  that  are 
needed  for  the  top  part  of  the  second  page  are  calculated. 
Note  that  YS  is  a  vector  so  the  results  can  be  multi-valued 
The  various  values  are  put  into  the  output  matrix  as  the 
various  columns.   If  for  any  year,  degree  day  information 
was  not  reported,  stars  are  put  in  that  place. 

CHANGES:   This  is  called  by  SECOND  so  it  can  take  advantage  of 

local  variables.   If  there  are  no  comparisons  the  first 
line  exits  from  the  program.   Then  the  heading  with  the 
first  two  years  to  be  compared  is  put  in.   If  two 
comparisons  are  to  be  made  the  title  for  the  second 
comparison  is  put  in. 

Then  the  percent  changes  between  the  first  and  second 
year  are  calculated  and  put  in  the  matrix.   The  variable 
WHERE  tells  where  on  the  page  to  put  the  numbers  calculated 

If  there  is  three  year's  data  the  first  and  third  year's 
data  is  then  compared. 

FOOTNOTE:   This  routine  checks  to  see  if  electricity  was  reported 
for  every  month.   If  it  is  not  a  note  is  printed  out  at 
the  bottom  of  the  report. 
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5.6  The  Print  Programs 


These  programs  were  written  specifically  for  use  by  the  CALLDATA 
computer.   They  allow  the  yearly  summary  reports  to  be  printed  on  their 
remote  terminal  in  Boston.   The  monthly  reports  are  printed  on  8^2  x  11 
paper  at  their  main  computer  in  Newton,  MA. 

New  users  will  probably  want  to  change  these  programs  to  make 
them  relevant  for  their  computer  system. 


PRINTBOS : 


Opens  the  shared  variable  for  the  printer  in  Boston 
and  gives  the  output  report  a  tag. 


The  CP  and  CMS  commands  allow  a  line  in  APL  to  be  processed 
as  if  it  were  a  line  in  CP  or  CMS 


PRINTNEWTON : 


Opens  a  shared  variable  to  the  printer  in  Newton.   This 
program  also  gives  a  tag  and  requests  8%  x  11  plain  paper 


PRINTPAGE : 
PRINTCLOSE : 


Sends  a  page  to  the  printer 
Closes  the  print  file 
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5.7  Basic  Functions 


The  following  functions  are  canned  programs  that  go  along  with  our 
Consumption  Program. 


CMS:  Allows  a  user  in  the  APL  environment  to  execute  a 

statement  as  if  it  were  in  CMS. 

CP:  Allows  a  user  in  the  APL  environment  to  execute  a 

statement  as  if  it  were  in  CP. 

E,JE:  Allows  the  user  to  edit  APL  functions  using  standard 

edit  functions.  These  are  described  in  the  User's  Manual 
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6.   Software  Listings 


VBUI  LD ARRAYS  ID  3V 

7    BUT  LDARR  AYS;ANS 
[13      ATtfrS   PROCR  AM  I  NI  TC  AIIZES    THE   ARRAYS    USED    THROUGHOUT   THE   SYSTEM. 
[2  3         'THIS   PROGRAM  SHOULD   BE    USED   ONLY   WHEN   SETTING    UP   A    NEW   SYSTEM.' 
[3  3         'IF   THAT  IS   WHAT   YOU   WANT   TO    DO    TYPE    YES   OTHERWISE    TYPE   NO.1 
[4  3        ANS+fl 
3  ]        -+(ANSlll*'  Y')/0 
[6  ]        CONSTANTS 
[7  3        Aff  MM* 
[8]        FACIL 
[9  ]        LITERALS 

[10  3     COSTHNJRS  >NFAC  J9FLS  ,12)p0 
[11  3     QUAN+iNJR  S  9NFAC  JtFLS  ,12)p0 
[12]      C0MP+(NYR  S  ,NF AC  J1FLS  ,12)  p0 
[13  ]     DEGD+(NYR  S  ,NFAC  ,12)p0 
[14]      'PR  OCR  AM   COMPLETE1 

V 


V    CONSTANTS 
[1  ]      «  INITIALIZES   GLOBAL    VARIABLES    TO   BE    USED    THROUGHOUT   THE   SYSTEM 
[2  ]        FUELTYPES+ » ENPC2HS 6S ' 
[3]        MONTHS*-    789     101112123456 

[4]         'ENTER    THE   FISCAL   YEARS   YOU   WANT  IN    CHRONOLOGICAL   ORDER  ' 
[5  3         »F0?    EXAMPLE    73    78    79     80' 
[6  3        JF/tf?  M3 
[7  ]        NFLS<-pFUELTYPES 
[8]        NYRS+pYEAR  S 
[9   ]         SOURCE<-9p    10500    105000    91500    26000000    139600    145100    148800 

152400  1265000 

7 
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VMINMAXU21V 

7    MTNMAX 
[1  ]      ft  OF   THE   YEARS   ARE   NOT  IN   COR1  ESPONDANCE   WE   GO    TO    THE    DEFAULT. 
[2]        +(NYRS*H)/L1 

[3]        -►(-(  A/y£\4?£=(73    7  6    7  8    79  )))/£! 
[4  ]        MI  NI  MI  UMH  NYR  S  J1FLS )  p  0 
[5]        MAX!  MI  UM«-(  NYR  S  JJFLS)  pO 

[6]        M  NT  ML  UM  11  i  1+    0.005    0.0  5    0.09     18    0.1    0.06    0.06    0.06    0.5 
[7]        MI NI MI  UM 12;  >    0  .0  2    0  .1    0  .25    4  0    0  .2  5    0  .2  5    0  .15    0  .1  5    3 
[8]        MINIMIUMZ3;  >    0.02    0.1    0.25    40    0.25    0.25    0.15    0.15    3 
[9]        MINTMIUM&;  >    0.02    0.1    0,25    40    0.25    0.25    0.15    0.15    3 
[10]      MAXIMIUMili  >    0.04    0.5    0.27    35    0.25    0.25    0.25    0.3  5    8 
[11]      MAXIMTUM12;  >    0.075    0.8    0.7    70    0.7    0.55    0.5    0.5    10 
[12  ]      MAXIMIUM13;  >    0  .09     0  .9     OS     70    0  .8    0  .55    0  .5    0  .5    12 
[13]      MAXT  MI  Mtf[4;>    0.09     03     03     70    0.8    0.55    0.5    0.5    12 
[14]      +0 

[15  ]  LliMT  NIMI  UM+(NYR  S  3  )p    0.009     0.12    0.13    18    0.1    0.06    0.06    0.06    2 
[16]     MAXIMIUM+-(NYR  S  3  )p    0.09     0  3     0  3     70    0  .8    0.55    0.5    0.5    12 

7 

VFACIL  E  ]7 

7    FACT  L\A\REC\IDSQFT\CODES 
[1  ]        ENTER  F  ACID 

[2]      fl^/TrS   PROGRAM   COKES   SQFT  tFACI  II  TY   NAMES  ,  4//£   FACIUTY  ID'S   Ft  OM 
[3]      rd  DSQFT  INTO   ARRAYS   CONSISTENT   WITH    THE   NEW   CMS   SYSTEM 
[4  ]        NFAC+CODES  [3  ]-l 
[5]        FACI II  TIES^NF  AC  pO 
[6]        SQFT+(NYRS  J1FAC  ,12)pO 
[7]        4<-l 

[8]      LI :  F4CT  LT  2T  FS  U  y-il  DSQFT  [4;  1 10  ] 
[9   ]        5CF!r[;4;  >±T  tfSSFF  U  ;  6  +  1 10  ] 
[10]      A+A  +  l 
[11]      -Ki4<tfF>iC)/Ll 

[12  ]      NAMES+(NFAC  ,4  0)  pr  ZJS^FF  [;  20+ 1 40  ] 
[13  ]      »L0i4£    COMPLETE' 

7 

7£7/rff?F/!CrD[Q]7 

7    ENTE?  FACID;I  \B%ZZ  ;CTL 
[1  ]         'ENTER     THE  I D   OF   THE   MASTER    FILE' 
[2  ]        OPEN 

[3]      r-»-crL 

[4]      ft    27/rS  READS    THE   MAIN   FILE    CONTAINING    FACILITY  IDS  ,  NAMES   AND 
[5]      Pi    ORI  GINAL    SQUARE   FOOTAGE  INTO   AN   APL    CHARACTER    MATRIX. 
[6  ]        N*-l 

[7]        I  DSQFT+{(C0DES£3  ]-l)  ,80)  p*     • 
[8]      LliIDSQFTLN;  ~hREC 
[9  ]        tf«*-tf+l 

[10]      -►(C2,L[2]<C<9Z)FS[3  ])/Ll 
[11]      N+QSVR     2    3    p'RECCTL' 
7 
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[1] 
[2] 
[3] 
[4] 
[5  ] 
[6] 
C7] 
[8] 
D  ] 

Li«    J 
[11 

[12 

[13 

[14 

[15 

[16 

[17 

[18 

[19 

[2  0 

[21 

[22 

[23 

[24 

[25 

[26 

[27 

[28 

[29 

[30 

[31 

[32 

[33 

[34 

[35 

[36 

[37 

[38 

[39 

[40 

[41 

[4  2 

[43 

[4  4 

[4  5 

[46 

[4  7 

[48 

[49 

[50 

[51 

[52 

[5  3 

[54 

[5  5 

[5  6 

[57 


VLITER  ALSiW}V 
V    LITERALS 
n    DFUELS  IS    USED 


DFUELS*-  9 
DFUELS  [1 
DFUELS  [4 
DFUELS  [7 
AMON+-    12 

ft    DMON  IS 
DMONH  12 

ft    TYPE  IS 
TYPE*-  9 
TYPE  [1 
TYPE  [2 
TYPE  [3 
TYPE  [4 

nps1  [5 

TYPE  [6 

yypE  [7 

TYPE  [8 

«    UNITS 
UNT  TS<- 


12 

2  3 
5  6 
8    3 


IN 
t 


DFX  LL 


> 


3 

3 
3 


12 
12 
12 


p'ELEC(KWH) 


p'COAL(TONS) 


NATG(CCF) 
OIL    N02(GAL 


PROP(GAL)  • 

)0rL    #04(G4L) ■ 
p'0TL    N05(GAL)OI  L    N06(GAL)STEAM(  KLBS)     » 
3    p!  JULAUGSEPOCTNOVDECJANFEBMAR  APR  MAY  J  UN' 


IN    DTT  TLE  . 
•  )  /tfOff  ,(12 

rw  ft?  sr . 


2    p 


) 


USED 

3    p' 

USED 
11    p1 

~\+%  electricity 

>,^i42'Wi4L  GAS 

It*-' PROPANE 

>'COAL 

>  '  (X  L    ff0  .  2 

> '  (X  L    #0  .  4 

>'dL    00  .  5 

>farL  7/0.  6 

T5    t/SFZ?  IN   FIR  ST  . 
9     14    p1     ' 

UNITS  11;  >'^T  LOWATT   HOURS' 

UNT  TS  [2  ;  ]«- ■ 1 0  0    Ci/BT  0   FFJ??  ■ 

i/IT5[3    5    6    7    8     ;>    5    11    p 

UNITSl^i  >%TONS  • 

UNI  TS^  i"]+-'KI  LO   POUNDS         • 
ft    5^2T  0/75  ^  ST  ATI  ONS  JJDEGD  , 

STATIONS*-    2    10    p»     ■ 

STATIONS  [1  ;  >» BOSTON  ■ 

S2V42T  077S  [2  ;  > '  J/0?  CESTER     ■ 

NSTATI  ONS+2 

NDEGDH  N  ST  ATI  ONS  ,1 2  )  p  1 

SDEGDHNYRS  ^STATIONS  ,12)  pi 

NDEGD  Hi  >    0   9     60    316    603    983    1088    972    8  46    513 

34    147    450    774    1172    1271    1123    93  8 
3    4    51    405    673    985    1033    9  71    666    45 
0    12    164    350    547    1065    1320    89  8    850 
0    4    85    304    498   3  48    1127    1057    885    4 
11    11111111111 
16    41    171    622    897    1152    1200    1120    7 
2    47    223    413    586    1161    1412    972    920 
16    32    189     481    711    1202    13  59     1255     1 
33    11111111111 
USED  IN   DTI  TLE   AND   HEADER   . 


GALLONS 


AND   SDEGD   ARE    USED  IN   PDEGD  . 


NDEGD  [2  ;  >    6 
SDEGD  Hill  > 
SDEGD  [2  ;  1  ;  > 
SDEGD  [3  ;  1 ;  > 
SDEGD  [4 ; 1 ;  > 
SDEGD  [1 ;  2 ;  > 
SDEGD  12 i 2i  > 
S0£GZ?[3;2;  > 
5Z?ff(7Z?  [4  ;  2  ;  > 
ft    AMONTHS  IS 
AMONTHS*-    12   9 
AMONTHS  Hi  > 
AMONTHS  [2  ;  > 
AMONTHS  [3  ;  > 
AMONTHS  i*  i  > 
AMONTHS  [5  ;  > 
AMONTHS  iS  i  > 
AMONTHS  [7  ;  > 
AMONTHS  [8  ;  > 
AMONTHS  D  ;  > 
AMONTHS  [1 0  ;  >  ■  OCTOBER 
AMONTHS  [1 1  ;  >  » 7/0  VEMBER 
AMONTHS  [1 2  ;  >  ■  DECEMBER 
V 


208  36 
612  304  78 
0  258  24 

443    272    13 
80    209     17 

38     555     338    37 

511    310    60 
054    674    288    69 


JANUAR  Y 

FEBR  UAR  Y 

MARCH 

APRIL 

MAY 

JUNE 

JULY 

AUGUST 

SEPTEMBER 
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V  ADD  AT  A  [D  ]V 

V  ADDATA\I  \J\K\L\CAR  D;CYEAR  ;CFAC',CFL  ;CMTH-,ERR  OR  MATRI  X;  FLAG -J  ;</;# 
\L\CDEGD\CCOST\CQUAN\Z  &Z  \SKI P;R  EC\CODES\SPACE 

[1  ]         'THIS  READS    THE    CMS    CONSUMPTION    FILE  INTO    THE    DATA    BASE.' 

[2]         'RECORDS   FOUND  I N   ERR  OR     ARE   PUT  INTO    A    CMS   FT  LE    CALLED    ERROR    DAT 

A  .' 
[3]         'IF   YOU  READ   ANOTHER    FILE    BEFORE    CORRECTING   AND  RELOADING    "  ER  1  0 

R    DATA1  ■   ,#??  CR     DATA' 
[4]         'MUST   BE  RENAMED    OR   IT   WILL    BE   ERASED.    TYPE    "EXIT"    TO   GET   OUT 

OF   THIS   FUNCTION  .' 
[5]         'TYPE    "OK"    TO    CONTINUE.' 
[6  ]        ANS+® 
[7]         +( AN S  11  1*'0'  )/0 
[8]      *THI  S   PR  OGR AM  READS   A    CMS    CONSUMPTION    DATA    FILE  INTO    THE    4    DIMENS 

I  ONAL   MATRI  XES 
0  3         OPEN 
[10]      SKIP+0 

[11]      -K-A/Z3   [i5  ]='ERRGR  '  )/Sl 

[12]      'IF   YOU   WANT   THE    UNIT   COST   PART   OF   THE    VALIDATION  ROUTINE' 
[13]       'BYPASSED   TYPE    " BYPASS"  ,0THER  WI  SE   TYPE    "OK'" 
[14]      ANS+ft 

[15]      ^(ANSL1^'B')/S1 
[16]      SKIP<~1 

[17]  SI:  'TURN    CARRIAGE   TO    TOP   OF   NEW   PAGE.    THEN   PRESS   THE  RETURN   KEY.' 
[18]      Q 

19   ]  a    THE   FIR  ST  R  ECOR  D  IS    CONTR  OL 
[2  0]      CARD+CTL 

[21]   ^INITIALIZE   ERR  OR  MATRI  X 
[2  2]     ERR  OR  MATRI  X«-    0    9  0    pO 

[23]   *THE   MAIN    LOOP    TAKES   ONE  RECORD    AND    PROCESSES  IT 
[24  ]  LliCAR  D+REC 
[2  5]     READCARD 
[26  ]  ATP    FtfP    Ci4?  D   TS    PtftftfZ?    TO    BE  I  N   ERR  OR    WE   PUT  I  T  IN    THE    ERR  OR  MATRIX 

AND 
[2  7  ]    nSKI  P   THE   MAIN   MATRI  XES  . 
[28]      FLAG+VALIDATE 
[29  ]      -+FLAG/L3 
[30]      FI NDDEGD 

[31  ]  AL04Z?    fffftf   Z?il2Vi   rtfTtf    MATRI  XES  . 
[32  ]      Ctf,ST  H  ;J;#;L  ACCOST 
[33]     QUANU  ;J;KiL~]+-CQUAN 
[34]      COMPV  iJiKiL  >-l 
[3  5]      DPGZ?  C  ;  J" ;  L  1+CDEGD 

[36]   a    CtfFCX    TO    SPP  I F   WE   ARE  AT   END    OF   FILE. 
[37]   L3:+(CTLl2  1<C0DES  [3  ])/Ll 
[38]   nPRINT   OUT   BAD    ENTRIES. 

[39  ]       'TtfP    FOLLOWING    CARDS    WERE    FOUND  IN   ERR  CR  • 
[4  0  ]      '   ?  PCtfO  r   .0  .  £>PGP    Pi/PL  J2M?  7 

P//P      QUANTITY         COST' 
[41 
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[41] 

[42  ] 

[43  ] 

[44  ] 

[45  ] 

[46  ] 

[47  ] 

[48  ] 

[49  ] 

[50  3 

[51] 

[52] 

[53  ] 

[54  ] 

[55  ] 

[56  ] 

[57] 

£8] 

[59  ] 

VADDATA  [D41  ]V 

FRR  CR  MATRI  X 
fiCLOSE  FT  LE  . 
miANS+DSVR     2    3    p'RECCTL' 

CMS    'ERASE   FRROR    DATA1 

REC+'ERRCR     DATA    (370    FT  X* 

CTL+-' ERROR     DATA    (CTL' 

1+110   USVO    2    3    p'RECCTL' 

T+CTL 

I<-pERR  (XMA1RT  X 

CTL+-    0    0     I  [1  ] 

REC+ERRCRMATRT  Xl\  IO+18O  ] 

'THE  ABOVE  RECORDS   AR  E  I  N  A    CMS  FT  LE    CALLED' 
"'ERROR    DATA"  .    YOU  SHOULD   MAKE   CORRECTIONS' 
1  AND  RELOAD    THE   FT  LE  .« 

I+GSVR    2    3    p'RECCTL' 

R  EC+'CMS    (APL    BEG' 

REC+101    USVO    'REC 
REC+'  )SAVE' 

REC+-US1R     'REC 


7?  EADCAR  D  [D  ]V 
V  ?  EADCAR  D 

[I]  nCHECKS   TO   SEE  IF  ANY  ESSENTT  AL    COLUMNS   ARE   BLANK. 
[2]      LI :  +(v/ CAR  D  [27    49     5  0    51    5  2    70    78]='     ')/MTSSCNG 

[3]        CFAC+±CAR  Dl\l  ] 

[4]         J+FACILITIES\CFAC 

[5]        CFL+CARD  [27] 

[6  ]        K^FUELTYPESxCFL 

[7]         CMTH+±CARD  [51    52] 

[8]         L*-MONTHS\CMTH 

D    ]      ^CONVERTS   CALENDER     YEAR    TO    FISCAL    YEAR 

[10]      £y£A/? «-±C#?Z>  [49     50] 

[II]  -+{CMTH<1)/L2 
[12]      CyE,A?«-C?7£'A?+l 
[13]   L  2  :I «- 1£4?  5 1 C  J£Aff 

[14]  a    FIND    COST   AND   QUANTITY, 

[15]      CCOST+-±CAR  Dl7  0+\B  ] 

[16  ]      CQUAN+±CJR  Z?[60+il0  ] 

[17  ]     SP4C£«-0 

[18]      -K) 

[19  ]   ft  IF   THERE  IS   A  ZERO  IN   THE   CENTS   COLUMN   AND   NOT  IN   DOLLARS    THIS 

IS    CORRECTED  . 
[20  ]  MI  SSINGiHiC/R  Z?[7  8  ]=  '     ■  )  a(  CARD  [80  >  ■  0  '  )  )/Sl 
[21  ]      SPACE*-! 
[22  ]      -»-0 

[2  3  ]   Sli  CARD  178  y<-'0f 
[24  ]      +L1 

V 
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VVALT  DATE  IU1V 

V    F LAG+V ALT  DATE tf  ATI  0\LOW\UI  GH '%H  NE 
[1  ]      A    IF    THERE    WAS    DATA    MT  SST  NG  IN    THE  ?  EADCA1  D    PHASE    THE    CARD  TS  IN 
ERRCR  . 


[2] 

+SPACE/ERR  CR 

[3] 

a    CHECK   TO    SEE   ALL    CARD  INPUTS   ARE    WITHIN   THE   AIR  AY   PARAMETERS  . 

[4] 

-►0"  >UY1  S)/ERR  CR 

[5] 

+  {J>NFAC)/ERR  CR 

[6] 

-*(K>NFLS)/ER1  CR 

[7] 

■*(L>12)/ff??  CR 

[0] 

*  IF   NONE    OF  A    FUEL  TS    USED  TT  IS   0  JC.    SO    WE   PASS  T  T   ON   TO 

B  3 

■+SKI  P /PASSED 

[10  ] 

n      THE   MAIN   MATRT  XES  . 

[ii  ] 

+(CQUAN=Q) /PASSED 

[12  ] 

?  ATI  O+CCOST  +  CQUAN 

[13] 

LOW+MT  NT  MT  UM  (T  ;£  ] 

[14  ] 

//J GH+-MAXT  MT  UM  {I  ;K  ] 

[15  ] 

a    i/2?   CtftfCtf   TO    £££  IF   THE   COST/QUANTITY  R ATT  0   FOR    A    GT  VEN 

[16  ] 

*FUEL   AND    YEAR    AR  E  R  EALI  STI  C  . 

[17] 

-►(  0?  ATI  0>LOW)  a(R  ATT  0<HI  GH)  ) /PASSED 

[18  ] 

£7??  CR  :LTNE+    19  0    p(  5    0    iCTL  [2  ])  ,»                f  tCAR  D 

[19  ] 

a   I  F   THE  ?  ATI  0  I  S   NOT  R  EALI  STT  C    WE   STOR  E  T  T  TN    THE   ER1  CR  MA  IRIX 

[20  ] 

A    AND   PUT    THE   FLAG    TO    »1»    SO  T  T    WT  LL    NOT   BE   ST '0?  ED  TN   MAIN   MATRT  X 
ES  . 
ERR  OR  MATRT  X+ERR  OR  MATRT  X  ,  [1  ]  LT  NE 

[21  ] 

[2  2  ] 

FLAG+1 

[23] 

+0 

[24  ] 

PASSED: FLAG^O 
V 

V2T  NDDEGD  [G  ]V 

V    FT  NDDEGD 

[1] 

aTF   THE   NUMBER    OF   DEGREE   DAYS    WAS    BLANK    WE   SUBSTITUTE 

[2] 

*SO    WE   KNOW   THE   STATISTIC   WAS   NOT  REPORTED. 

[3] 

HOARD  [24]='     »)/Ll 

[4] 

CDEGD+S.CARD  [20+ 14  ] 

[5] 

+0 

[6] 

L1:+{DEGD[[  ;J;L]*0)/L2 

[7] 

CDEGD+l 

[8] 

+0 

[9   ] 

L  2  :  CDEGD+DEGD  D"  ;  «7 ;  L  ] 
V 

A    1 
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VMEWSQFTU31V 

V   NEWSQFT'%ANS\FAC\TIME\MM\MT\YYiYR  \A  ;5  ;  C\D\  G\R  EC 

[1]         'THIS   PROGRAM   CHANGES    THE   SQUARE   FOOTAGE   FOR    A    FACI  U  TY   FCR     THE' 
[2]         'MONTH   AND   YEAR     CHOSEN   AND   ALL    SUBSEQUENT   MONTHS.    THEREFORE  T  F    Y 

OU' 
[3  3         'ARE   ENTERING   SEVERAL    CHANGES   FOR    A    FACT  IT  TY   ENTER     THE   E fit  H  EST 

FT?  ST  .' 

[4]      LSi'IF   YOU   WT  SH   TO   EXIT  FROM   THIS   FUNCTION   TYPE    "  E  XT  7'  '  OTHER  W  SE 
t 

'TYPE    ''OK''' 
ANS+V1 

HANS  il  >'E')/SAVE 
L2:  'ENTER     THE  I  .D  .   NUMBER     OF   THE   FACI II  TY    WHI  CH  I  S    TO   BE    CHANGED' 
ANS+G 

FAC+FACILITIES\ANS 
+(FAC>NFAC)/L6 

'YOU   it  LL   BE    CHANGING   THE   SQUARE   FOOTAGE   FOR:' 
(WANS)  ,'  '   JiAMESlFAdl 

'IF   THI  S  I  S  INCOR?  ECT   TYPE    "AGAIN''    OTHERWISE    TYPE    "OK"' 
ANS+ft 
HANS  11  ]=M')/L5 

L4:  'ENTER    THE   BEGINNING    CALENDER     DATE   FOR    THE    CHANGE  I  N   THE   FORM 

i 

'YYMM    (    FCR     EXAMPLE    7  8  09  )  • 

TIME*® 

MM+ftTIMElZ    »+] 

MT+M0NTHS\MM 
YY+tTTMEtl    2] 
HMM<7)/L1 

yy+yy+i 

LliH+IE/R  S\YY 
HYR  >NJR  S)/L3 
AHMT-1)  +  12*YR  -1 
DHNYRS*12)-A 
BHNJR  S  ,12)p SQFTLiF AC ';  3 
C+  £ 
'THE   LISTED    VALUE   FOR     THAT   MONTH    WAS' 

CU+13 

'ENTER     THE   NEW  SQUJR  E   FOOTAGE' 

ANS+U 

CCU+iZ?)  1+ANS 

SQFTUFACi  >(*!?£  t12)pC 

'IF   YOU   WISH    TO   MAKE   ADDITIONAL    CHANGES   TYPE   YES   OTHERWISE   TYPE 

NO' 

ANSHU 

HANS  LI  >'Y')/L2 

-+SAVE 
LZiMT+1 

YY+YY+1 

->(YY>Q5)/m 

HYY<70)/LH 

♦LI 
L6:'THE  ID   NUMBER     YOU   ENTERED    WAS   NOT  FOUND  .' 

+L5 
SAVEv?  EC+'CMS    (APL    BEG' 

R  EC+101    USVO    'R  EC 

R  EC«- ')SAVE' 

REC+-USVR      'REC 

V 
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V DELETER  ECOR  D  CD  3V 

V    DELETERECCR  D\ANS\FACiFT\I  \J\K\L\MT\1  EC 
Cl  3      LI:  'FOR     AWyHT   F4CT  II  TY   DO    YOU   WANT   THE  ?  ECCR  D    DELETED?  ' 
[2  ]        F,4C«-D 

[3]        J+FACI  LITIESxFAC 

[4  3         'Y0£/   WTLL    BE   DELETING   A  RECORD   FCR  ' 
C5]         (vFAC)  ,'  "  JIAMESUi  3 

[6  3         »*/#>!  T   FUELTYPE  I  S   TO    BE   ELI  ML  HATED?    (EXAMPLE   N)' 
[7  3        FM3 

C8 3        K+FUELTYPESxFT 

C3   3         fF0?     WMT   FISCAL    YEAR    YY   DO    YOU   WANT    THE  RECORD   DELETED?' 
[10  3      YR+Q 
[113     I+YEA1S\YR 

[12  3      fF0?     J/tfi4T   MONTH(S)    DO    YOU   WANT   THE  RECORD    DELETED?' 
[13  3      MT+Q 
[14  3      L<-MONTHS\MT 

[15  3      +(v/COMPU:  ;J;KiL]=0)/ML  SSI  NG 
[16  3      •70*/   WLL    ffiiFB   27/F   OPTION   OF   DELETING1 
[17  3      'FACILITY*  ,'  "   ,(fF>10) 

[18  3      (  .AMONTHSlMTil)  ,'    OF   FISCAL    YEA1        •  ,?7? 
[19  3     ryPF[K;  3 

[2  0  3       TflF   QUANTITY   LISTED  IS' 
[21  3      QUANtf  ;J',KiL  3 
[22  3      •TtfF    COST   LISTED  IS' 
[2  3  3      COSTU  iJiKiLl 

[24  3      '#0    70£/   MAT   TO    DELETE   THESE  R  ECOR  DS?  ' 
[25  3      'ANSWER     "YES"    OF    "NO".' 
[26  3     A//S«-H 
273      ^(i4^S[l3*f  J1  )/51 
[28  3      COSTV  iJ'.K'.L  >0 
[23   3      QUANV  'tJ;K'tL+0 
[30  3      COMPU  ;J;K'9L]+0 
[313      +S1 

[32  3  MI  SSING'.'THL  S  RECORD   HAS   NOT   BEEN   ENTERED   INTO    THE   SYSTEM.' 
[33  3  SI:1  DO    JOtf    AT  Sff   70    DELETE   MOR  E  R  ECOR  DS?  ' 
[3  4  3       'ANSWER     "YES"    OR      "NO".' 
[35  3      i4tfS-K3 

[36  3     +U//S[1  3=»jr'  )/Ll 
C37  3     lEC+'CMS    (APL    BEG' 
[38  3     ?FO«-101    D570    '?FO» 
[39   3     ?  FC«-'  )5i47F» 
[40  3     REC+USVi     'RFC 

V 
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[1] 

[2] 

[3] 

[4  3 

[5] 

[6] 

[7] 

[8] 

D    3 

[10  ] 

[11  3 

[12  3 

[13  3 

[14  3 

[15  3 

[16] 

[17  3 

[18  3 

[19  3 

[20  3 

[21  3 

[22  3 

[2  3  3 

[24  3 

[25  3 

[26  3 

[27  3 

[28  3 

1ADDEGD  [Q  3V 

V   ADDEGDiANSiMMiMTtf  ECiSiYR  lYY 

'THIS   PROGRAM  ALLOWS   YOU   TO    ENTER    DECREE    DAY  I  NFOR  MAH  ON   FCR  ■ 

'A    GIVEN   MONTH  , YEAR    ,  AND    WEATHER    STATION.' 
LI  i  'WHAT   CALENDER    YEA?    AND   MONTH  TN   THE   FORM   YYMM  DO    YOU   WISH' 

'TO   ENTER    DATA    FCR     (EXAMPLE    7809)' 

ANS+IS 

MM+lANS  [3    4  3 

MT+MONTHS \MM 

YY+lANS  [1    2  3 

-+(MM<7)/S1 

YY+YY+1 
S1:YR+YEAR  S\YY 

'YOU   HAVE   THE   FOLLOWING    WEATHER    STATIONS  I  N   YOW     SYSTEM.' 

(w(NSTATTONS  ,l)p  \NSTATT  ONS)  ,(  (NSTATT  ONS  ,5)p'     f  )  .STATIONS 

'ENTER     THE   NUMBER    OF   THE   STATION   YOU   WISH    TO   ADD   THE  I  NFCR  MATI  ON 
FOR  ' 

s*a 

'THE   LISTED    VALUE   WAS' 

SDEGDVtR  ',SiMTl 

'A    "1"   I  NDI  CATES   THE  I  NFCR  MATI  ON   NEEDS   TO   BE  ?  EPCR  TED  . ' 

'WHAT  IS   THE   NEW    VALUE?' 

SDEGD  LYR  ;  S ;  MT  >D 

'DO   YOU   WISH    TO   ENTER    OTHER     STATION   DEGREE  INFORMATION .    ANSWER' 

'  YES   OR    NO  . ' 

ANS+E 

HANSil  3=,y»)/£i 

REC+'CMS    (APL    BEG' 
2?  £0101    USVO    'REC 
REC*-'  )SAVE' 
REC+QSVR     'REC' 
V 
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[1] 
[2] 
[3] 
[4] 
[5] 
[6] 
[7] 
[8] 

D  ] 
[10 
[11 
[12 
[13 
[14 
[15 
[16 
[17 
[18 

[19 

[20 

[21 

[22 

[23 

[24 


WAS 


40    pA 

ITS 


ORIGINAL   SQUARE   FOOTAGE?' 


VADFACID  ]V 

V    ADFAC ;  A  ;B  ;  C ;  D  \E ; FAC ;  NAME ;?  EC\S 

'WHAT  IS    THE  I  .D  .   NUMBE1     OF   THE   FACILITY    YOU   WISH    TO   ADD?' 

FAC+U 

'WHAT  IS   THE   NAME   OF   THIS   FACILITY?' 

NAME*- 

'WHAT 

S+O 

NFAC+NFAC+1 

FACILITI  ES+-FA  CI  U  Tt  ES  fAC 

NAME*-   1    40    p'     ' 

E+pA 

NAME  [1 ;  \E  >i4 

NAMES+-NAMES  ,[1  ]  NAME 

BHNYRS  ftFLS  ,12)p0 

QUAN<-QUAN  ,  [2  ]   B 

COST+-COST  ,  [2  ]  B 

CHNYR  S  ,12)p0 

DEGD+DEGD  ,  [2  ]  (7 

DHNYR  S  ,12)pS 

SQFT+SQFT  ,[2  ]  £ 

REC+'CMS    (APL    BEG' 

R EC+101    USVO    'REC 

REC+')SAVE' 

REC+USV?     'REC 

V 
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[1] 

[2] 

[3] 

DO 

[5] 

[6] 

[7] 

[8] 

D    3 

[io  3 

[11  3 

[12  3 

[13  3 

[14  3 

[15  3 

[16  3 

[17  3 

[18  3 

[19  3 

[20  3 

[213 

[22  3 

[2  3  3 

[24  3 

[253 

[2  6  3 

[27  3 

VDC  SPLAY  [UN 

V    DC  SPLAY \YR  ;PAGE-%TiDQUANiC  ;«7;?  OW\FC\NUM\X 
a    THC  S  PROGRAM  PR  C  NTS   ON   THE   TERMCNAL   A  R  EPCR  T   OF  A    YEARS 
a    CONSUMPTC  ON   FOR    A   FACC  H  TY   OR    FACC  JZ  2T  ES  . 

X«-i 

'ENTER     THE  I  D   NUMBER    OF   THE   FACC  U  TC  ES   YOU   WISH    TO   DC  SPLAY1 

FAC+U 

NUM+pFAC 
*  IF   ONE   NUMBER   IS  ENTER  ED  C  T  MUST   BE  MADE  C  NTO   AN  AR1  AY i 

HNUM*l)/Sl 

FAC+lpFAC 
SI:  'ENTER    THE   FC  SCAL    YEAR    YY    YOU   WISH    TO    DC  SPLAY  • 

YR+U 

XTURN   PAPER    TO   TOP   OF  PAGE,   THEN   PRESS  RETURN,1 

Q 

I+YEM  SxYR 
L1:J+FACC  CI  TC  ESxFAC  IX  3 

PAGE*-    6  6    120    p»     ■ 

Rov+n 

DTITLE 
T-*-  9     12    pO 
A    THE   PARTS   OF   THE   QUAN  /RRAY   THAT  ARE   NEEDED  ARE  ISOLATED  . 
DQUAN+  9     12    pQUANt  \J\\  3 
DFC  LL 
DTOTALS 
PAGE 
X+X+l 

+(XzNUM)/Ll 
'PROGRAM   COMPLETE1 
V 
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VPRI  NTDATA  [D  ]V 

V    PRINTDATA\YR  iPAGE  ;T  ;DQUAN;I  ;«7;?  OW\FAC\NUM\X 

[I]  ft    THIS   PROGRAM  SENDS   A  REPORT   ON   A    YEARS    CONSUMPTION   FOR    A 
[2]      o    FACILITY    CR     FACILITIES    TO    TEE   HIGH    SPEED   PRINTER  . 

[3  ]        X+l 

[4]         'ENTER    THE  ID   NUMBER    OF   THE   FACILITIES   YOU    WISH    TO    DC  SPLAY1 

[5]         Tf   YOU    WANT  ALL    FACILITIES    TYPE    "FACILITIES  .'  ■  ' 

[6  ]        FAC+G 

[7  ]        NUM+pFAC 

[8]      ft  IF   ONE   FACILITY  IS   ENTERED  IT  MUST   BE   MADE  INTO    AN   ARR  AY  . 

[3  ]        +(NUM*1)/S1 

[10]      FAC+lpFAC 

[II]  Sli'ENTER    THE   FISCAL    YEAR    YY    YOU   WISH    TO    BE  PRINTED.1 
[12  ]     YR-U 

[13]     I+YEARSxYR 
[14]     PRI NTBOS 

[15]      PRCTL+    66    1    pfl'  ,65p»     * 
[16]   L7:J+FAd  It  7T  ESxFAC  IX"} 
[17]     +  U*NFAC)/L1 

[18]      Ttftf    FOLLOWING   FACILITY  I    .D  .   JMS   #0T    FOUND' 
[19  ]      WCU] 
[20]      -*L2 

[21  ]  L1:P4G£«-    66    120    p*     * 
[2  2]      ROW+17 
[23]      DTTTLE 
[24  ]      T*-  9     12    pO 

[25]      DQUAN+  9     12    p££Mtf  DT  ;J;  ;  ] 
[26]      Z?fTLL 
[27]      DTOTALS 
[2  8]      PAGE+PRCTL  fAGE 
[29   ]      R?r  NTPAGE   PAGE 
[30  ]  L2:X«-Z  +  1 
[31]      +(X<NUM)/L7 
[32]      PRI  NTCLOSE 
[33]       'PR  OGR AM   COMPLETE' 
V 
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[13 

[2  3 

[3  3 

[43 
[5  3 

[63 

[7  3 
[8  3 

D  3 


1DTC  TLElWtf 
V    DTI  TLE\WHEN 
A    THIS   PRINTS   THE    TITLES   FOR     THE    YEARLY    CONSUMPTION  REPORTS. 
WHEN+UTS 

PAGES  CW-15;9  5+i25  >'PRI  NTED    •  tAM0NTHSlWHENt2  3;3»(  2    0    WWHEN  [3  3) 
1   ,    »  ,(?J/#2tf[l3) 

P4G£E?  0J/-13;4O  +  i25  l+'ENEI  GY   CONSUMPTI  ON  ?  FPOT  2" 
P4GS  5  CW-ll;40+i40  WANES  Ml  3 


P4G£[?0J/-9  ;  UO+i  22  >T  .0  ,  NUMBER 
PAGER  Of/- 7;  40+ 1 16  3«-,flr  SCVIL  72,4? 
Pi4G£R  CW-3;14+il06  >(  %DM0N)  ,» 

P4GE  &  0J/-2;  14+1106  >(9  6p  f  

V 


1  ,(io  o  fF/icun) 

19  !  ,?r? 
totals1 


) 


[13 

[2  3 

[3  3 

[4  3 

[5  3 

[6  3 

[7  3 

[8  3 

[9   3 

[10  3 

[11  3 

[12  3 

[13  3 

[14  3 

[15  3 

[16  3 

[17  3 

[18  3 

[19   3 

[2  0  3 

[213 

[22  3 

[23  3 

[24  3 

USED 


VDFI  LL  [D3V 
V    DK  LL\K\L 

a    WE   FIRST   CHECK   TO   SEE  IF  ANY   OF  A    FUEL  IS 

a    NONE  I S    USED    WE   CHECK   NEXT   FUEL  . 

L5:-K(  +  /CCWP|T  iJlKi  3)=0)/6 

a  IF  A    FUEL  IS    USED    WE   PRI  NT  I  TS   NAME   AND    UNITS 

PAGER  OW  i\  12  y-DFUELS  [#;  3 
a    WE   THEN   CHECK   THE  I  NDI  VI  DUAL   MONTHS. 
Lli+iCOMPE  ;</;#;£  3=0)/L2 

PAGER  0W't6  +  (8xL)  +  \8  >    8    0    *DUANlK;L] 

■+L3 
A    FT  LL  I N   STAR  S  IF  NONE   OF 
L2iPAGER  0J/;6  +  (8x£)+i8  >» 
L3:Z>L+1 

-*U>12)/L4 

-►LI 
a    EI  ND   AND   PRI  NT   THE   TOTAL 
UttPAGEB  0J/;11O+\1O  3-*-    10    0 

ROW+R  OW+3 

L+l 
a    2T  LL  I  N   AN   AR1  AY   THAT   HAS    THE   BTU/UNIT   FOR     ALL 

TIK;  yrSOIR  CEZK'] 
Le>:K<-K+l 

■+(K>NFLS)/0 

-*L5 

V 


I  F 


A    FUEL  I  S    USED 
*****  f 


FOR     EACH   FUEL  . 
v(+/DQUANLK;  3) 


MONTHS 
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[1] 

[2] 

[3] 

CO 

[5] 

[6] 

[7  3 

[8] 

D  3 

[io  3 

[li  3 

[12  3 

[13  3 

[14  3 

[15  3 

[16  3 

[17  3 

[18  3 

[19   3 

[20  3 

[21  3 

[22  3 

[2  3  3 

VDTOTALS  CD  3V 

V    DTOTALS\BTUiTBTU\DSQFT\TSQFT\DCOST\TCOST 

BTU+12pO 
A    TOTAL    BTUS   FOR    MONTH   ARE   FOUND    BY   MULTIPLING    EACH   FUEL    TYPE 
A    BY   BTUS /UNIT  . 
TOTALS  :BTU<-(+/  [1  ](T*DQUAN)  )fl000000 

TBTU++/BTU 

PAGER  0J/-2;lO+illO  >110p  '  -1 
A    WE   PRINT   OUT   TWELVE   MONTHS    CONSUMPTI  ON   THEN   THE   TOTAL. 

PAGER  OWil+'MMBTViSOW  CE)     »  ,(  8    0    wBU)  ,(10    0    iTBTU) 
R  OW+R  0J/+3 

PAGER  Of/;  1 110  >'  SQUARE   FOOTAGE'  ,(8    0    wSQFT  IT  \J  ;  3) 
a    DSQFT  I  S    1000    BTUS/SQFT /MONTH  . 

DSQFT+BTUiSQFTU:  -tJ\  3*100  0 

S0J/+S0J/+3 
a    rSCF?1  r5    TOT^L   MBTU/SQFT   FOR     THE   ENTIRE   YEAR  . 

TSQFT++ /DSQFT 

PAGER  0W;\12]+'MBTU   /    SQFT    ' 

PAGER  0J/;14+ilO6  3«-(  8    0    WDSQFT)  ,    10    0    wTSQFT 

ROW+R  OW+3 
a    Z7C0521  Z"£    COST   F0?     FX0#   M0tf!T#   FOT    4LL    FUELS. 

DC0ST++/  [1  3   CtfSriT  ;c7"s;  ] 
a    ^COST  Z"£    TOTAL    COST   FOR    ALL    THE   FACILITIES   FOR    THE   YEA!    . 

TCOST+-+/DCOST 

PAGER  OW ';  ]«-» TOTAL    COST  '  ,(  8    0    wDCOST)  ,(  1  0    0    wTCOST) 

V 
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V MONTHLY  CD ]V 

V   MONTHLY ;  A  \AS01R  CE\CNT\FACiFCOMPiFCOST\FLAG\FUAN\J  \L\MT\NOTE  \N 
UMiNUMFiPAGEtf  OW\TUUM\TWO\f& SiTXSiJR S\YS\Z 
[1]      *    THT  S  IS    THE   PR  OG?  AM   THAT  Ft  I  NTS   THE  MONTHLY  ?  EPCR  TS 
[2  ]        QUESTT  ONS 
[3  3        3«-l 

[4  ]        PAGE*    66    8  5    p»     ■ 
[5  ]         TWO*-    66    85    p'     ' 

[6]      ft    THE   HEADERS  ARE   PLACED   ONCE   NO   MATTER    HOW  MANY   FACC  IT  2T  ES 
[7  ]      a    Tlim  E   m  E  . 
[8  ]        HEADER 
0    3        KEEP 
[10  3      IRT  NTNEWTON 

[11  3   ft    THE   PAGE   EXCLUSI  VE   OF    THE   HEADERS  T  S   FR  ASED  . 
[12  3  LliPAGELll  ,22+i«+4;  >»     ■ 
[13  3     J+FACI  LITTES\FAC[Z  3 
[14  3      -+(J<NFAC)/S1 

[15  3       'THE   FOLLOW  NG   FACT  II  TY    WAS   NOT   FOUND.' 
[16  3     FACZ    3 
[17  3     +L2 
[18  3   ft    <7tf£C£   TO   S££  TF   THERE  I S   NO   DATA   FCR    A    GIVEN  FACILITY  IN  A    YEAR 

• 

[19  3  51 :  FCOMP*-(NY?  5, NFLS  ,12)  f>COMPl;J;  ;  3 

[20  3      FQUANHNYRS  JJFLS  ,12  )  pQUAN  [;J;  ;3 

[21  3      FCOST+(NYi  S  tNFLS  ,12)  pCOST  liJ  i  ;  3 

[2  2  3     y^O^+ZFCCWPDryS;!;  3 

[233      -*{v/A*Q)/S2 

[24  3      'THERE    WAS   NO    DATA    FOR    F ACUITY       '  9(wFAC&   3)  .'       50   WO  REPORT   WAS 

PRI  NTED ' 
[25  3      +L2 
[26  3  S2-.YS+A/TYS 
[27  3      FtS+A/TYRS 
[28  3    ft    NUMIS    THE  NO.    OF   YEARS  FOR    WHICH    WE   WILL   PRINT   OUT   DATA    FCR    A 

FACI II  TY  . 
[29   3      NUM+pYS 

[3  0  3      ASOUR  CE+-{NUM  tNFLS)pSOW  CE 

[313     P4G£[ll;8  +  i52  >(10    0    wFAC&l),'       '.NAMESUil 
[32  3      FI1ST 
[33  3      TOTALS 
[34  3      PDEGD 
[35  3      PRINTPAGE  PAGE 
[36  3      !Tf/<9[10    11    13    14    16    17    19     22    24    26    27    34    35    37    39     41    42    43    ;38+i 

42  >»     « 
[37  3      SECOND 
[38  3      FOOTNOTE 

[39  3      TJ/0[44+i2O;13+i46  3«-tf07'£ 
[40  3     ?  0^^-44+CiVr 
[41  3      PRI  NTPAGE   TWO 
[4  2  3  L2:Z«-Z  +1 
[43  3      +(Z  <NUMF)/L1 
[44  3      H?r  NTCLOSE 
[45  3      'IR  OGR AM   COMPLETE' 

V 
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[13 

[2] 
C3] 
[4] 
[5] 
C6] 
[7] 
C8] 
D  ] 
[10 

[11 

[12 

[13 

[14 

[15 

[16 

[17 

[18 

[19 

[2  0 

[21 

[2  2 

[23 

[24 

[2  5 

[26 

[2  7 

[28 

[29 

[30 

[31 

[32 

[33 

[3  4 

[35 

[36 

[37 

[38 

[39 

[4  0 

[41 

[42 

[4  3 

[44 


ALL    THE 

TER  l€  NAL  T  NPUT 

NEEDED 

YOU    WANT 

THE 

R  EPOR  T   FCR 

i 

DO    YOU    WANT 

THE  R  EPOR  T 

FOi  ■ 

JUNE' 

VQUESTIONSlWN 

V    QUESTI  ONS\Y\ANS\YR 
*    THIS  R  OUTC  NE   ASKS   THE    USER    FCR 
a  I  N    THE   MONTHLY  R  EPOR  T. 
L2:'WHAT    2    DL  Gl  T   FT  SCAL    YEAR    DO 

'WHAT  MONTH    OF   THE   FT  SCAL    YEAR 
'FOR    EXAMPLE    1    FOR    JULY    12    FCR 
L+Q 
MT+MONTHS  [L  ] 

■+(Y>NYR  S)/L2 

'IF   YOU   WANT   THE  R  EPOR  TS    FCR     ALL    FACILITIES    TYPE    '  f  FACT  LI  TT  ES'  ' 
i 

'OTHER  AT  SE   TYPE   THE   FACI  U  TY  ID   NUMBER  S    YOU    WANT  .' 

FAC+€ 

NUMF+pFAC 

+(NUMF*1)/S1 

FAC+lpFAC 
SliFLAG+1 

'DO    YOU    WANT    TO    DISPLAY   DEGREE   DAY  I NFORMATT  ON   FCR     WEATHER' 

'STATIONS?   ANSWER    YES   CR     NO' 

ANS+E 

+(ANSll']  =  'N')/S3 

FLAG+0 
S3:  'YOU   HAVE   THE   OPTION   TO    DISPLAY  I  NFCR  MATI  ON   FOR    ZERO  ,» 

'ONE  ,  OR     TWO   PREVIOUS   FISCAL    YEARS.   YOU   HAVE    THE   FOLLOWING    ' 

'FISCAL    YEARS   AVAII  ABLE  .' 

YEARS 

'I     SUGGEST    YOU   DISPLAY    THE   PAST   YEAR     AND   A    BASE    YEAR  ' 

'DO    YOU    WANT   TO    DISPLAY   ANY   BACK   YEARS?' 

'ANSWER     "YES"    CR     "NO'" 

ANS+® 

-►(  'Y'=ANSll  ])/S2 

-*(  'N'*ANSll  ])/53 

TYR  S+ipYR 

TYS+lpY 

TNUM+1 

-►0 
Slt'PLEASE   ENTER     THE   YEARS   YOU   WANT  I N    THE   ORDER     YOU   WANT    THEM.' 

TYRS+U 

TYR  S+-YR  ,TYR  S 

TYS+YEAR  SxTYR  S 

TNUM+pTYS 

+  (a/(TYS<NYRS))/0 

'YOU   ENTERED   AN  I  NVAEC  D    YEAR   .   TRY   AGAIN.' 

+S1 

V 
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VHEADER  [Q]V 

V    HEADER  ;WHEN;CY 
[1  ]      ft    THI  S   ESTABII  SEES   THE   HEADINGS    USED  IN    THE   HIST   PAGE  . 
[2  ]         WHEN+BTS 
[3]        2MG£[l;60  +  il8  ^-AMONTHS  LWHEN12  3;  V     ',(2    0    WWHEN13  ])  ,  •  ,    »  ,(  4    0    ▼ 

J/fftftf  [1  ]) 
[4]        PilG!J?C6;25+i33>«ilfC?i7r^LJr   ENERGY   CONSUMPTT  ON  1  EPCR  T1 
[5]        CY+TR  S  [1  ] 
[6]        +(MT<7)/S1 
[7]        CY+CY-1 

[8]      51:P^G^[8;36+ll4>>lM0il/3'//5[M2,;  ],'     19  •  ,(  2    0    TCY) 
D   ]        P4G£[14;13+i59  l+'THIS  1  EPOR  T   GC  VES  I  N  FOR  MATT  ON    ON   ENERGY    CONSUMP 

TT  ON  AT  YOUR  » 
[10]      PAGE  [15;  8+  166  ]+%FACC  R  TY  .     IT  IS   BASED    ON   THE    "ENERGY   CONSUMPTC 

ON  ?  EP0?  2T  ff(7   F0?  #5  •  ■  ■ 
[11]      P4G£[16;8  +  il9  l+'YOU   HAVE   SUBMITTED.' 
[12]     Pi4G£[18;8+i53  IH-'BffLGJ/ r  S   IM2V1    F0?     ^5    '  tAMONTHStM?il9*    AND   FCR 

1  9AM0NTHSlMT-9  ].»    OF' 
[13]      Pi4G£[19  ;  8+\  15  >'P?  EVI  OUS   YEARS.1 

V 


[1] 
[2] 
[3] 
[4] 

[5] 
[6] 
[7] 
[8] 
[9  ] 
[10] 

[11  ] 
[12] 
[13] 
[14] 

[15] 

[16] 
[17  ] 
[18] 
[19  ] 
[20] 
[21] 
[22] 


VKEEP  [Q  ]V 
V    KEEP;X 

TWOl3;72+\6]+1PAGE    21 
TWO  110;  8+ \12l+1YE/R  -TO-DATE1 
ft    PLACES   TL  TLES   ON   THE   SECOND   PAGE    THAT 
TWO  [7;8+\72  >'rtfE  I  NFOR  MATT  ON   BELOW  IS 
JULY  THROUGH    »  JIMONTRSUiTi  ] 
!TJ/(9[13;ll+i26  y-'ELECTRI  CI  TY 
2*J/0[14;14+i8  >f  DOLLAR  S:  ' 
TWOll6ill+\26l+' OTHER    FUELS 
TWO  ll7ilH+\8  1+1  DOLLAR  S:  ■ 
TWO  [19  ;11+\12  "^-'DEGREE   DAYS: 
TWOl22;ll+\22l+'ELECT1I  CITY 
TWO  [24;  ll+i26  l+'OTHER     FUELS 
TWOl26ill+\20  >«  TOTAL 
TWO  [27;  11+ 1 16  >» TOTAL 


ARE 
THE 


THOUSAND   KWH 


NOT   CHANGED  . 
CUMULATE  VE   TOTAL   FCR 


ML  LH  ON   BTUS:  f 


KWH/SQFT: • 
1000    BTU/SQFT: 
1000    BTU/SQFT:  » 
COST/SQFT    » 


£T  Gtf?  £S   BZ7L0J/  ?  FF£?     TO    CHANGES   BETWEEN    TH 


TWO  [3  0;  8+168  >»  2V7F 

2*1/0  [31 ;  8+ i  63   >M    NEGATIVE   NUMBER    INDICATES  AN  IMPROVEMENT   (DECRE 
ASE)  I  N    CONSUMPTI  ON  .  • 
TWO  [34;8+il4>» PER  CENT    CHANGE' 
2,J/0[35;8+il4>14p,-« 
Ll:2*J/0[37;ll  +  i21  y-'ELECTRI  a  TY   BTU/SQFT:  ■ 
TJ/O  [39  ;  11+ i  21  ~k-' OTHER     FUELS   BTU/SQFT:1 
TWO  [41;ll+i21  ~^*  TOTAL  BTU/SQFT:1 

TWO  [42;13+il3  >•  DOLLAR  S /SQFT:  ' 
Tf/O  [43;  13+  1 18  ^-'COST/ft  LIZ  ON   BTUS:1 
V 


[1] 

[2] 

[3] 

DO 

[5] 

[6] 

[7] 

[8] 

D   ] 

[10  ] 

[11] 

[12] 

[13] 

[14] 

[15] 

[16] 

[17] 

[18  ] 

[19   ] 

[2  0  ] 

[21  ] 

[22  ] 

[2  3] 

[24  ] 

[25] 

[26  ] 

[2  7] 
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vftz  stidiv 

7    FT?  ST\X\WHERE\Z  \Stt  PS 
n    PUTS  IN   FUEL    USE  IN   FIRST   PAGE  . 

P4GZ?[22;8+il3  "}*-*  MONTHLY   USAGE1 

Pi4G£[23;8+il3  >13pl-t 

PAGE  122  ;*2+\NUM*12  >  ,({NUM  ,10)p'  FY1  )  ,(  (NUM  ,2  )p  (  2    0    vYR  S) 

) 

P>iGE[2  3;**2+i//Wfxl2  >  t((NUM  t12)p'  •) 

?0J/«-2  3 

X<-0 
n    DETERMINES    WHICH   FUELTYPES    WIRE   NOT    USED. 

S£TPS«-0=  +  /  [1  ]  FC0MP[y£;  ;L] 
Ll:*«-X+1 

-*U>9  )/o 

->(i=5^r  p5[^])/li 

?0P/+?0J/+3 

J///E?  £«-42 

Z+l 

PAGER  0J/;ll  +  i27  ^-TYPElXi  ],»       '  tUNITSlX;  ] 

Pi4G£[?  0tf+l;24+i7  >'  DOLLAR  S1 
L2:+(Z  >NUM)/L1 

+  (0=FCOMPIYS&  ];*;£])  /STARS 

PAGER  0W;WHERE+\12  >    12    0    WFQUANLYS  Z  V*X\l  ] 

PAGff  &  0J/+l;J/ffE?F+il2>   12    0    fPCOST [75  B    ];*;£] 
LZiWHFR  E+WHFR  £+12 

Z«3  +1 

->L2 
n    PR  I  NTS   STARS  IF   DATA  IS   NOT  AVAL!  ABLE  . 
STARSiPAGEliR  OtfJ  CW+1 )  ;  W/E?  £+ il2  >    2    12    p'  ***    • 

V 
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VTOTALS  CD  ]7 

V    TOTALS 
[1]      a    Ptf!TS    TOTALS   FOR     FT?  ST   PAGE  INTO   PAGE   MATRIX. 
[2]        R  OW*R  0W+^ 

[3]         PAGER  OW-2;ll  +  \65  >65p'-f 

[4]        P/lGtfE?  0tf;  11+126  >•  TOTALS  MMBTU(S01R  CE)  • 

[5  ]        TQUANS+(+/FQUANlYSi  \L  ]*ASOW  C£)*1000000 
[6]        P4G£fr0J/;42+i(12xtf£/M)  >    12    0    iTQUANS 
[7]        PAGER  0J/+I;24+i7  >«  PALLAS' 
[8]         TCOSTS+-+/FCOSTIYS;  \L] 
Dl        P4G£&  0J/+l;42+i(12xMW)3«-    12    0    WTCOSTS 

V 


1PDEGD  CD  ]V 

V    PDEGD\X\Z 
[13      A    mi  UTS   THE   DECREE   DAY   AND   SQUARE   FOOTAGE  T  NFO    ON    THE   KRST   PAGE 

• 
[2]        ?  0J/«^?CW+3 

[3  3        PAGER  OWill+\lny*-%  SQUARE  FOOTAGE' 
[4]         P4G£[?  CW;42  +  itf£/Mxi2  >    12    0    ?5QF!T  [75;c7;L  ] 
[5]       ff0fiNr?0V+3 

[6]        P4GFC?  0J/;ll  +  i27  ^'DECREE   DAYS   FCR     THE  S   MONTH:1 
[7]         P/1G£0?  0i/+l;ll  +  i27  >27pf-' 
[8]        ??0J/«#0{/+3 

0]        PylGffRtfJ/'.ll  +  il?  >'F0?     70W    FACILITY' 
[10]      P;4G£C?0J/;42+itft/Mxl2  >    12    0    ?££GZ?  [J5;«/  ;L  ] 

[11]   *  IF   DEGD   FCR    A    MONTH  IS   ONE    WE   SUBSTITUTE   STARS   BECAUSE  IT 
[12  ]   *WAS   NOT  REPORTED  . 
[13]     Z  «-l 

[14]  L2:+(DEGDIYS&   ];«T;L  >1)/S1 
[15]      PAGER  OW;30  +  (Z  xl2)+il2>»  ***     ■ 

[16  ]  S1:Z*Z  +1 
[17]      +(ZZNUM)/L2 
[18  ]      -+FLAG/0 
[19  ]     ROW+R  OW+2 

[20]      Pi4(7ffE?0l/;ll  +  i3O  ^-'WEATHER     STATIONS  NORMS' 

[21]      Pi4G£ff  0J/+l;ll+il6  >16p  •-• 
[22]      PAGER  0J/+l;36  +  \5  >5p,-« 
[2  3]     ROW+ROW+3 
[24  ]      X+l 

[25  ]  L1:P4G#B  0J/;ll+ilO  ESTATE  ONSLXi  3 

[26]      PAGE  BOW  i  23  +\12*NUM+1  >(12    0    wNDEGDIXiL  1)  ,(12    0    wSDEGDLYS  ;X  ;L  ]) 
[27]      X«-Z+l 
[28]     ?0J/«*0J/+1 
[29  ]      +(X<NSTA1I  0NS)/L1 

V 
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1  SECOND  CD ]V 

V    SECOND-,!  NDEX\EQUAN\ECOST\A\B\OQUAN\OCOST\ASQFT\ESQFT\OSQFT\TSQ 
FT\TCSQFT\X 
[1  ]      ft    TUTS    THE   HI  MARY   DATA  INTO    THE   SECOND    PAGE. 
[2]         TWO  [3;  8+ 1 10  >    10    0    ▼FdCT  ZT  ZT  ES  [J"  ] 

[3]         7(/O[10;H2+i^yWxl2>,((//W,10)p'  FY  ■  )  ,(  (NUM  ,2  )p  ( 2    0    ▼  J?S)) 

[4]        WOCll;  8+il2  >12p,-f 

[5]        Ttftf  [11  ;42+i//W/x  12  >,(//£/#  ,12)  p»  ' 

[6]        T  NDEX+**2+\(NUM*12) 

[7  ]      a    ELECTRI  CAL    CONSUMPTT  ON  • 

[8]        EQUAN<-+/FQUANLYS;1;\L1 

D    ]        ZW0  [1  3  $  NDEX  >    12    0    w(EQUANHOOO) 

[10]      ECOST++/FCOSTlYS-9li\L'] 

[11]      TWO  11**$  NDEX  >    12    0    lECOST 

[12]      /t<-+/F3£/,4tf[yS;l+i8;  iL] 

[13]      B-f-i4xi45CWCff[;l+i(i7FL5-l)  ] 

[14]      OQUAN++/B 

[15]      rf/0[16;r  NDEXy-    12    0    f  (OQUAN*  10  00 000  ) 

[16]      0C0ST++/  +  /FC0ST[JSil  +  \8i  iL  ] 

[17]      ZW0[17;r  NDEXy-    12    0    wOCOST 

[18]      Z»J/0  [19  ;r  tf£FX  >    12    0    ?(  +  /DEGD  LYS;J;  \L  ]) 

[19  ]      X«-l 

[20  ]  Lli+(L*+/DEGDUSUC~\\J\  \L  ])/Sl 

[21]      TJ/O  [19  ;30  +  (^xl2)+il2>'  ***     ■ 

[22  ]  SI  :*«-*+ 1 

[23]      +(X<NUM)/L1 

[24]   p    AVERAGE   SQUARE   FOOTAGE   FOR    THE   YEAR   . 

[25]      ASQFT++/((SQFTlYS;Ji\L])*L) 

[26]   ft    ELECTRICAL    CONSUMPTT  ON   PER     SQUARE   FOOT. 

[27]      ESQFT+EQUANiASQFT 

[28]      :rj/0[22;r  NDEXy-    12    2    lESQFT 

[23   ]    r    0T##?     CONSUMPTT  ON   PER     SQ  .    FOOT. 

[30]      OSQFT+OQUANiASQFT 

[31]      7f/0  [24  ;T  #£>£*>    12    0    ▼  (  OSQFT*  1  000  ) 

[32]   ft    ZW/1L    CONSUMPTT  ON   PER     SQ  .    F0027 . 

[33]      TSQFT+-(ESQFT*SOUR  CEHD  +  OSQFT 

[34]      !FJ/<9  [2  6  ;T  tfZ?£*>    12    0    ▼(  2\SGFZ,*1000) 

[35]   ft    Z^ZML    C0SZ7   P#?    5$.    F007  . 

[36  ]      TCSQFT+(+/  +  /COSTlYS;Ji ;\L  ])*ASQFT 

[3  7]      TJ/0  [2  7  ;r  NDEX  >    12    2    iTCSQFT 

[38 ]      CHANGES 

[33   ]   ft    SET   PAGE   i42'    43    FOT     PRTNTPAGE    STAGE. 

[40]     f?0l/«-4  3 

V 
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V  CHANGES  [D]V 

V  CHANGES ; WHER  E \X\CE\CO\CT\ CCSQFT ; TBTU\TCOST\ TCBTU\ CCBTU 

a  r  f  ther  e  at.  e  no  compart  son  year  s  skip  the  ?  own  ne  . 

+(NUM=l)/0 

TWO  [34;5  5+i7>'F:P  .(wYRSll  3)  ,»/»  ,(JJ?S[2  3) 

2W0  [35;55+\7>7p,-t 
a    PUT  IN   ONE    COMPART  SON  I F   TWO    YEARS,   TWO  TF    3    YEARS. 

+(NUM<3)/S1 

:ZW0[34;67+l7>,FY,   ,(  fJT?  S  [1  ])  , »  /  \    twYRSl3l) 

TWO  [35  ;67+i7  >7p»-' 
a    G(9£S    TIRO  UGH   LOOP   ONCE    OR     TWC  CE  . 
Sl:JT«-2 

ftWtf?  £«-5  5 
Ll:-»-(J?S$*T[ir  >0)/53 
a    CE  T  S   CHANGE  I  N   ELECTRICAL    CONSUMPTION. 

CEH  "l+ESQFT  [1  liESQFT  DC  3)*  100 

TW0l37iWHERE+\7"}+    7    1    wCE 
*    CO  T  S   CHANGE  I  N   OTHER    CONSUMPTI  ON  . 

-+(v/OSQFT  =  0)/S2 

COH'l  +  OSQFT  [1  3*0SGF2'Uf  3)*100 

:H/0[39  iWHERE+\7  >    7    1    ?C0 
a    CT  I  S   TOTAL   CHANGE  I  N   CONSUMPTION. 
S2:CT+(~l  +  TSQFT[.l  ]*TSQFTLX])*100 

TWO  ViliWHm  E+\7  >    7    1    wCT 
a    CCSQFT  IS   CHANGE  IN   COST/SQFT. 

CCSQFT+Cl+TCSQFT  [1  liTCSQFT  VC  3)*100 

TJ/0[4  2;J*W£7?£+i7  >    7    1    VCCSQFT 

TBTU+OQUAN+EQUANxSOUR  CE  [1  3 

TCOST+ECOST+OCOST 

TCBTU^-TCOSTtTBTU 
a    C£B7tf  r  5   CHANGE  I  N   COST   OF  FUELPFR    BTU . 

CCBTUH'l  +  TCBTU  [1  liTCBTU  IX  3)  *  1 00 

TWOMiWHEtE+xl]*-    7    1    wCCBTU 
S3-.X+X+1 

WHIR  E+WHER  E+12 

+(X>NUM)/0 

->L1 

V 

VFOOTNOTELUIV 

V  FOOTNOTE iA;M 
[13        #<??£+-    20    46    p'     • 
[2  3        CNT+A+-M+0 

[3  3      Llt/t-M  +  l 

[4  3         M+0 

[5  3        +(A>NUM)/0 

[6  3        JT<-  *S  D4  3 

[7  3      L3:M<-M+1 

[8  3        -KM>L)/L1 

[3  3        +{FC0MPlXiliM']=l)/L3 

[10  3      CNT+-CNT+1 

[113      +(CNT<20)/S1 

[123      N0TEL20;  \23^+<THE   ERR  OT     TABLETS  FULL1 

[13  3     ->o 

[143  Sl:NOTElCNTil+%NO    DATA    WAS  R  EPOR  TED   FCR     •  ,A/rf0tf  [M;  3,  *    OF   FISCAL    YE 

AR     •  ,(2    0    ?K  5[i4  3) 
[15  3      -»»L3 

V 


[13 

[2  3 

[33 

[4  3 

[5  3 

[6  3 

[7  3 

[8  3 

[3   3 

[10  3 

[113 

[12  3 

[133 

[14  3 

[15  3 

[16  3 

[17  3 

[18  3 

[19  3 

[20  3 

[21  3 

[22  3 

[23  3 

[24  3 

[25  3 

[2  6  3 

[27  3 

[28  3 

[23  3 

[30  3 

[313 

[32  3 

[33  3 

[34  3 

[35  3 
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VCOMPLETENESS  [U  ]V 

V  COMPLETENESS %ANS\A\B 

[1  ]         'WHAT   YEAR     DO    YOU    WANT 

[2  ]         'YOW     CHOI  CES   AR  E :  ' 

[3]        YEARS 

[4  ]         •  ENTER  THE    2    DI  d  T   YEAR 

[5]        ANS+U 

[6]         A+YEARSxANS 

[7]        B+(NFAC  ,l)pFACI  LI  TL  ES 

[8]        B  ,(NFAC  ?  )i  +  /A+COMPlAl 
V 


THE 


NOW 


COMPLETENESS 


R  EPCR  T   FCR  ?' 


[1] 
[2] 
[3] 
[4] 
[5] 
[6] 
[7] 
[8] 
0   ] 

[10] 

[11] 

[12] 
[13] 
[14] 
[15] 
[16  ] 
[17] 
[18] 
[19  ] 
[20] 
[21] 


VQUANSUMIUW 

V    QUANSUM;ANSiA;BiC;DiY 

'WHAT   YEAR     DO   YOU    WANT   THE    YEAR  LY    QUANTT  TY  ?  EPCR  T   FOR  ?  ■ 

'YOW     CHOI  CES  AR  E:' 

YEAR  S 

'ENTER  THE    2    DI  <K  T   YEAR  'NOW.' 

ANS+-U 

Y+A+YEAR  SxANS 

BHNFAC  %l)pFA(Z  II  IT  ES 


FAC 


E 


N 


5 
t 


£,(  {NFAC  ,NFLS)+  +  /A+QUANIA;  ;;  ]) 


YEARLY   CONSUMPTION   OF   EACH   FUELTYPE' 

D«-0+/  [1  >/[3  ]   QUANlYi  ;  ;  ] 
i 

BTUS    BY   FUELTYPE' 

U+D+CxSOUR  CE 
i 

TOTAL   BTUS' 
+  /D 

V 
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VC0STSUMIU1V 

V    COSTSUMiANSiAiB 
[1  ]         'WHAT   YEAR     DO   YOU   WANT   THE   YEAR  LY    COST  ?  EPCR  T   FOR  ?  ' 
[2]         'YOIM     CHQTCES/RE:' 
[3  ]        YE/R  S 

O]         'ENTER  THE    2   DI  GL  T   YEAR    NOW.' 
[5  ]        ANS+U 
[6]        Y+A+YEAR  S\ANS 
[7]         BHNFAC  ,l)pFACT  IT  TT  ES 
[8] 
[9  ]         •         FAC  E  N  P  C  2 

5  6  5  TOTAL' 

[10]       »    • 
[11  ]     B  ,(  (NFAC  %NFLS)*  +  /A+COSTlAi  ; ;  ])  ,{+/  +  /C+C0STlAi  ; ;  ]) 


[12] 
[13] 


[16] 
[17] 


f     i 
t     t 

[14!       •  YEARLY   COST   BY   FUELTYPE 

[15  ]      +/  [1  ]+/  [3  ]  COST  [7;  ;  ;  ] 
t     t 

t     i 

[18  I       ■    TOTAL   COST' 
[19  ]      +  /  +  /  +  /COSTC7;;;  ] 
V 
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[1] 
[2] 
[3] 
[4  3 
[5] 
[6  3 
C7] 


VFRT  NTBOS  CD  ]V 
V   P?r  NTBOS; A 
*    THl  S   ACCESSES   THE   FRT  NTER     TO   PRINT   OUT   A   ?  EPCR  T  T  N   BOSTON 
CP    'TAG   DEV  PR  T    VS   BOSTON1 
CP    'SPOOL   PR  T   TO    VNET   CONT' 

CMS    'FT     GARY   PRINTER     (BLKSIZ  E    137   R  ECFM   VA* 
TERM*-1    GAR  Y    (  3  7  0  » 
A+lll    DSVO    'TERM' 
A+TPR  M 
V 


[1] 

[23 
[3  3 

[4  3 
[5  3 
[6  3 
[7  3 


VPRT  NTNEWTON  [D  3V 

V   PR  I  NTNEWTON  i  A 

CP    'TAG   DEV  PR  T   DELIVER 

CE    (727-199  0)  * 

CP    'SPOOL    PR  T   TO   SYSTEM 

CMS    'M   OP    CLASS   W   FILES 

D   TO   THE   PRI  NTER  ' 

CMS    'FT     GARY   PRINTER     {BLKSIZ  E 

TERM+'GARY    (3701 

A+-111    USVO    'TERM' 

A+TER  M 

V 


TO    CALDATA    BOSTON   ATTN:    MASS   ENER  GY   OFFT 


CONT   CLASS   W    ' 
(8  .5    BY    11    PLAI  N 


PAPER  )    HAVE   BEEN   SPOOLE 


13  7?  ECFM    VA ' 


[13 
[2  3 
[3  3 
[4  3 
[5  3 


VPRT  NTPAGE  [0  3V 

?F?I  NTPAGE   PAGE 
ft    P?r  NTS   A    PAGE   ON 

TERM*-'!' 

CTR«r\R  OW 
L1:TERM+  .PAGE  [1  iCTi 

-►LI*  \0<pClR  +-1\CTR 

V 


THE   HIGH   SPEED   PRINTER 


[13 

[2  3 
[3  3 


VPRT  NTCLOSE  CD  3V 
V    P?r  NTCLOSE; A 
ft    THI S   FUNCTI  ON   CLOSES   THE   PRINT   FILE 
A+QSVR     'TERM' 

CP    'SPOOL   PR  T   NO  CONT   CLOSE' 
V 
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VOPEN  CD  37 

7    OPEN -J, 
[13      a    OPENS    THE   SHARED    VARIABLES    1  EC    AND    '  CTL'    AT  TH  A    CMS   FT  LE 
[2  3      A    AND    CREATES   THE    VARIABLE    'CODES'    ft  TH    THE   OPENING    CMS 
[3]      A    POINTM    LOCATIONS. 

[4]         'ENTER     THE   *FT  LENAME   FT  LETYPE*   AT   THIS   TIME.1 
[5  3        ZZ  «-E 
[6  ]        REC+ZZ    ,f(370» 
[7  ]         CTL-&Z   t'(CTL' 

[8]        +U=  +  /Z«-110    0570    2    3    p*?  ECCTL'  )/L2 
D   3         'SHARED    VARIABLE   NOT  ACCEPTED' 
[10]      -»>0 
[11  ]   L2:CODES«R  EC 

7 


7CPCD37 

V    CP  AR  G\X\Y 
[1]        *«-,CP» 
[2]        J«-100    QS70    'X' 
[3]        *«-A?G 
[4  ]        ECODE+X 

7 


7CMSCQ37 

7    CMS   ARGiXiY 
[13        X+'CMS' 
[2  3        7«-100    DS70    '*' 
[3  3        X«-A?G 
[4  3        ECODg+X 

7 


